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INTRODUCTION 

This document describes in detail the necessary information for 
using a computer program to calculate the aerodynamic characteristics 
of upper-surface-blowing (USB) and over-wing-blowing (OWE) configu- 
rations. The program is based on the inviscid TTing-Jet interaction 
theoiy described in references 1 and 2, and the Jet entrainment theory 
developed in reference 3. Iii the interaction theory, the flow 
perturbations are computed both inside and outside the Jet, separately 
and then matched on the Jet surface to satisfy the jet-boundary 
conditions. The Jet Mach number is allowed to be different from the 
freestream valiae (Mach number nohUniformity)* These jet-boundary 
conditions require that the static pressure be continuous across the 


jet surface yMch must alvays remain as a stream surface. These 
conditions, as well as the wing-surface tangency condition, are 
satisfied only in the linearized sense. The detailed formulation 
of these boundary conditions is based on the quasi-vortex-lattice 
method (reference 4 ). 

The main assumptions used in developing the theory are as 
follows: (l) the flow perturbations, both inside and outside the 
jet, satisfy the Prandtl-Glauert equation and all boundary conditions 
have. been linearized; ( 2 ) the jet is either of the rectangular or 
circular shape with constant cross section and constant properties 
in the unperturbed flow for the purpose of interaction calculations ; 
and (3) no fuselage, nacelles, or wing thickness are accounted for. 

The program is written in Fortran language end runs on CLC 66OO 
and Honeywell 66/6O computers. It is available from COSMIC of the 
University of Georgia, Athens, Georgia. 


. siaasoLS 

cross sectional area of the jet 
thrust coefficient - V./qS 
Mach mauher of the j et 
Mach number of the freestream 
jet total pressure 
freestream total pressure 
freestream dynajoic pressure 
wing area 

temperature of the jet (total) 

freestream total temperature 

jet velocity 

freestream velocity 

wing aspect ratio 

leading edge : - 

trailing edge 

jet density 

freestream density 

rati:> of specific heats 




COMPUTER PROGRAM DESCRIPTION 
Pro/gram CapaMlities 

This computer program provides a theoretical method for determining 
the aerodynamic characteristics of arbitrary ¥ings under the influence 
of a single centered jet or a pair of jets blowing on or above the 
plane of the wing, Tlie program is applicable to both USB and OWB . 
configurations. The most important characteristic of the program is 
the ability to account for both the jet entrainment and the inviscid 
wing- jet interaction processes in calculating the aerodynamic charac- 
teristics of the wing. The entrainment theory is applicable to 
compressible heated jets and the interaction theory can be applied 
to jets with Mach number nonuniformity. The following is a list of 
the aerodynamic characteristics the program will calculate; 

1. Spanwise and chordwise pressure distributions, across 

the wing for both the. jet-on and wing- alone cases, 

2. The spanwise distribution of sectional lift, induced-drag 
and pitching moment coefficients due to circulation for 
both the jet-on and wing alone cases. 

3. The total lift, induced-drag and moment coefficients due 
to circulation when both entrainment and interaction are 
accounted for, 

4 . For OWB configurations, the total ^-ift, drag and moment 
coefficients due to circulation are calctilated recognizing 
only entrainment effects, thus establishing the relative 
importance of entrainment and interaction for a particular 


configuration. 





Fdir tiSB; bonfigfe the -force coefficieiits 

dtievito "-ca'aacia ' tur^hg- of 

53ie' totai fbre'e ' for the wing aione 

case-. ' 

Wing- Jet Geometry Liinitations 

As already mentioned, this program can he applied to configu- 
ratiohs which employ a sirigie Jet centered On or above the root 
chord of the planform or tw6 Jets symraetricalljr located on the left and 
right wing, respect iyeiy. The jet cross-section shape may he round 
or rectangular. The Jet exit may he located in any position relative 
to the wing so long as the bottom, edge Of the e:id;t is oh or above 
the plane of the wing. It is always assumed that the Jet is blowing 
parallel to the root chord of the wing. Ko spahwise Jet-velocity 
components can be accounted for. The Jet may have any Mach number 
or temperature, althougli the freestream velocity must be subsonic. 

The program has purposely been constructed so that a wide variety 
of wing planform geometries can be input. The wing may have linear 
ti-jist and any conceivable camber desired. The camber may vary 
linearly from root to tip. The effect of wing thickness is Un- 
accounted for, and the wing cannot have dihedral or anhedral. The 
wing may have as many as five separate flaps (all plain)' and each 
may have its own shape and size, as well as its own deflection angle 
(always positive). The root and tip chords of the wing and flaps 
must be parallel to the freestream. The wing leading and trailing edges 
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may not have any curvatnre but can GQnsi.st of a series, of straight 
lines. These edges may have slope-discontinuities or step shifts. 
This last statement also applies to the f elative position of various 
flap hinge lines to each other. However, too many points of slope 
discontinuities vould conplicate the geometry input. 

Preparation of Wing PlEshform Geometry 

In order to prepare the wing planform, geometry , the top-yiew 
of the right half of wing mtist be plotted in an X-Y coordinate system 
(see Fig. 1). The X axis is located at the root chord and oriented 
in the streamwise direction. The position of the wing relative to 
the Y-axis is arbitrary, but all pitching moments are calculated 
relative to the Y-axis. Even if the wing has camber and flap de- 
flections the wing should be plotted as a flat plate with zero flap 
deflection, (see Figure 1(a)) 

The wing should now be divided into a number of individual 
panels by drawing in brealt lines , which should be parallel to the 
X-axis and extend across the entire wing. (See figure 1(b)). These 
bre'ak lines should be drawn from such discontinuities as a slope 
change in the leading or trailing edge or the inboard and outboard 
edges of flaps. In addition, lines should extend from the inboard 
and outboard edges of the jet exit. If the exit is above the 
X-Y plane of the wing then the top-view projection of the exit 
onto the vring plane must be used. The portion of the wing between; 
these two lines i.e. (the part of the wing under the jet) will be 


j Traiiii^ I 
j Jet j 

j Section j 



■^nxauf^sss: 



referred to as the jet span. In figure 1(b) there are 3 spans mthin 
the influence of the flap, so there will be 3 flap sections (N]TP=3) 
even though they represent only 1 flap. The spans are always numbered 
from inboard to outboard and the numerical order of the flap and jet 
spans amongst the spanwise sections is 2, 3, If in figure l(b). Of 
these 3 spans the jet span is the second from the left so the numerical 
order of the jet span is 2,(NJP = 2), The number ITJP should not 
be confused with the numerical order of the flap and jet spans amongst 
the other spans. The wing may be divided spanwise into as many as 8 
individual spans. (Variables NFP, WJP, are defined in the input data foimat) 
Once this is done the spans miist be subdivided in the chordwise 
direction into individual wing sections. In the chordwise direction 
the wing can be divided into a maximum of three sections. (See Fig. 

1(c)). Break lines should be drawn from the root chord to the tip 
chord along such dicontinuities as the flap hinges or the aft edge 
of the jet exit. These break lines may exhibit slope changes or a 
step jump at the border of each wing span. This would be the 
case if a wing has two or more flaps whose hinge lines do not lie 
upon the same line. If it is possible, it is best to draw the chord- 
wise break lines such that they lie along a constant percentage of 
the wing chords. This helps to make the distribution of wing vortex 
elements more uniform. This is the case in figure l(e), where both 
the jet exit and the flap hinge are constant percentage chordwise 
lines . 





















The wing sections should he numbered from inboard to outboard 

starting with the most forward row. The jet spaa of figure l(c) has 

been divided into three sections and, althou^ the jet exit lies 

on the boundary between section 3 and section 8, all three sections 

are considered jet sections. Another jet section must always be added 

downstream of the wing with a streamwise length of at least one local 

chord length. This section is referred to as the trailing jet section. 

The only instance when the jet sections do not extend to the leading 

* 

edge is when the jet exit is located on or above the trailing edge. 

In this case only the trailing jet section is considered a jet sec- 
tion. If the jet exit is forward of the leading edge, another jet 
section must be added to include the area between the jet exit and the 
leading edge. A maximum of 4 jet sections are allowed. If the job 
to be run is an OWB configuration, then only the X-Y coordinates 
of the jet section corner points need be defined. However, if the 
job is an USB configuration, then the jet sections must be thou^t 
of as rectangular parallelepipeds whose lower svirfaces are on or 
above the plane of the wing, and whose thickness is that of the 
rectangular jet exit. Coordinates for each of the four edges of these 
parallelepipeds must be input as shown in figure 2. There will be 
four cards per jet section. The jet sections will be defined starting 
with the most forward section and working toward the trai lin g jet 
section. Even if the trailing jet is deflected down by a flap de- 
flection, the coordinates for this section must be input as if 
there is no deflection of the jet and its lower sxirface remains on 


the X-Y plane. If the jet exit is on the ■wing plane, the Z co- 
ordinates of the lower surface of each section must alw^s be zero, 
e’wen if the wing surface is cambered. 

Vortex liilement Distribution 

Small horseshoe vortex elements must be distributed across the 
entire wing as evenly as possible. This is done by allotting each "wlng 
section a certain number of vortex elements according to the relative 
size of the sections. The bound portion of the vortices are aligned 
in a matrix pattern of columns and rows within each wing section. 

Each wing section must have at least 2 bound elements in -fche spanwise 
direction and 2 elements in the chordwise direction; i.e. each wing 
section must be allocated at least 4 vortex elements. 

The wing sections are also arranged in columns and rows. All 
wing sections in the same row must have the same chordwise distribution 
of -vortex elements. For example, in fig. 1(c) if HW(l) = 2, then 
wing sections 1 thru 5 all ha-ve £ chordwise vortex elements. If the 
wing is di -Tided into 3 sections in the chordwise direction, then 
setting HW{l) =2, M(2) = 3, KW(3) = 2 should produce good results. 

If a wing has no flap and the jet exit is forward of the leading edge , 
then there will be no chordwise divisions of the -wing, and HW(l) = 5 
should produce good resiilts. In this case NW(2) and HW(3) would 
be set equal to 0. 

All wing sections in the seme c unn must have the same spam^^se 
vortex element distribution. If, foi- ^xaiiq>le-r‘lnTlg* 1(c) Ml(i^) = 5, 
then sections 4, 9, and l4 all have 4 spanwise vortex strips, Ml(l) 
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is always eq.ual to the nianber of vortex strips plus 1. Narrow wing 
sections should have only 2 or 3 vortex strips while wide wing sections 
should have 4 (Ml(l) = 5) to 6 (Ml(l) = 7) strips. 

The Jet circumference is covered with vortex strips in the 
manner indicated in Fig. 3. Vortex strips are arranged either in 
a rectangular pattern for USB Jets or to form a regular polygon for 
OWB circular jets. In either case, the inboard and outboard edges 
of the jet are always normal to the wing plane. Referring tc figure 3, 
if 8 vortex strips are used to model a non-centered jet, in either 
a rectangular or circular shape, 2 of the strips will be positioned 
to form the inboard and outboard edges leaving 3 strips to span the 
top of the Jet and 3 strips to span the bottom. In this case the 
blown wing sections (jet sections) must also have 3 vortex strips 
(M1(I) = 4). Wing and jet vortex strips mxist always be coordinated 
in this manner. The centered jet configurations must also exhibit 
the same spanwise coordination of vortex strips. The following 
equations can be iised as a check: 


Centered Jet 


Outboard Jet 


Ml(l) 


HSJ 

2 




NSJ H- 1 
2 


The chordwise distribution of vortex elements for the wing 
sections and jet sections must also be identical. Ihe trailing jet 
section should have 6 elements in the chordwise direction if it is 


deflected. If it is uncle fleeted* elements •will suffice. The 
maximum number of vortex elements that can be iised to model the wing 
is 100. The total number of vortices representing the wing can be 
determined with the following eq.uation: 

HC 

LPANEL = [KW{1) + -IW(2) + NW(S)lx[ 2 (Ml(l) - l)] 

1=1 


A maximum of 100 elements can be used to model the jet surface. 
However, an equal ntmber of jet vortices is oised to represent per- 
turbations inside the jet region. Thus, the total number of un- 
knowns allowed for both the wing and jet is 300. 

The nximber of vortex elements used to represent the outside 
(or inside) of the jet surface can be computed as follows; 

Centered jet 

MJ 

JPAMEL = [ 2 HCJ(I)] X [HSJ - l] 

1=1 

Outboard jet 

MJ 

JPAItEL = [ 2 KCJ(I)] X [HSJ + l] 

1=1 


The total number of unknowns to be solved, including the jet vortices 
for the jet flow in the present two-vortex-sheet representation of 
the jet interaction, is then 


LTOTAL = LPAHEL + 2 x JPAWM. 


INPUT DATA FORMAT 


Group 1. 


Group 2. 


Group 3. 


Format 13A6 1 card 

Any title identifying the cases to be run. 

Format 3(6X,l4) 1 card 

ICASE Number of cases to be run. 

NG = 0 if all cases have the same geometry other than 

the angle of attack. 

= 1 if new configurations or different freestreamr- 
jet velocity ratios are to be treated. 

ISYI4 = 0 for a centered jet 
= 1, otherwise. 

Format 8F10.5 1 card. 

AMI Mach number of the freestream 

AM2 Mach number of the jet flow 

VT4U Freestream velocity divided by jet velocity. 

TEMP Jet total ten^erature divided by freestream total 
temperature. Assumed to be the same as ratio of 
freestream density and jet density. 

ALP Angle of attack in degrees. 

XEL X- coordinate of the wing L.E. at the jet centerline. 

XET X-coordinate of the wing T.E. at the jet centerline. 


Note; If the thrust coefficient is given, WU may be con^iuted as 


i=,i{ 


1 + [1 t 


(sya) 1/2 

AjCPj/p„) 
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where 


Viviu = V /V. 

“ a 

C|p = thrust coefficient 

S = wing area used to define C_, 
w T 

A. = jet cross-sectional area 
J 

If the nozzle pressure ratio, p, ./p'-, is given, the following isen- 

ti , j " 

tropic relations mav be used. 




Y-1 




Ltj.. 




1 + ^ 

U 



Group 4. Format 2(6X, l4) 5F10.5 

NFP Humber of flap sections, including the jet span, 

A maximum of five flap sections maj' be input. 


NJP Numerical order of the jet span among the NFP sections. 

DF(I) Flap deflection angles in degrees for the flap sections. 

1=1, NFP ' » 

Group 5. Format 7^*10. 5 1 card 

« 

HALFSW One half of the reference wing area. 
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TWIST 


Difference in angles of attack at the tip and the root 
in deg. Negative for washout. 


TOTSTR 


Incidence angle of the root chord in degrees. 

XJ X, Y, and Z-coordinates of the midpoim, of the jet eross- 

YJ section at the exit. 

ZJ 

RJ Jet radius . 

Note ; The last four variables are needed only for over-wing-hlowing 
applications. They may he any non-zero numbers for USB appli- 
cations, unless the rectangular jet is not on the wing. surface 
and the entrainment effect is to he accounted for. For the 
latter case, these variables are used to define the equivalent 
circxilar jet. 


Group 6. Format 7F10.5 1 card 

TEMGL Trailing-edge half angle of the airfoil at the jet center- 
line in deg. For USB applications, it may he arbitrary. 
PTIAL = 0. for clean or full-span flap configuration 
= 1. for partial-span flap deflection. 

USB = 1. for USB applications 

= 0. for OWB applications 

CAMLER L.E. camiber slope at the root leading edge 

CAMLET L.E, camber slope at the tip leading edge. 

CAMTER T.E. camber slope at the root trailing edge 

CAMTET T.E. caniber slope at the tip trailing edge. 

Note; For USB applications, TEANfflj may be any value. If the camber 
ordinates are to be read in, the leading edge and trailing 
edge camber slopes may be arbitraiy numbers. 


IT 


Note; The following card must be omitted for 0\iIB applications. 


Group 7 Format 3F10.5 


1 card 


CMU Jet thrust coefficient 

DFJ Jet deflection angle in degrees at the trailing edge relative 

to the chord line . At small flap angles , it may be taken as the 
sum of flap angle and the airfoil trailing edge half angle. At 
large flap angles , experimental values should be used. 

TITJ =0. if the entrainment is not to be accounted for. Usually 

this is the case if the jet is on the wing surface. 

=1. if the entrainment due to an equivalent round jet 

is to be accounted for when a rectangular jet is not on 
the wing surface. 

Group 6 Format 8{6x, lU) 1 card 

WC Number of spanwise sections. A natural way of dividing a 

planform into sections is to follow lines of discontinuity, 
such as edges of partial-span flap , jet boundaries , wing 
edge discontinuities, etc. See Figure 1. HC is limited to 8. 

Ml(l) Number of vortex strips in each spanwise section, plus one. 

• Minimum value for each is 3» Maximum for each KL(i) is 31. 

I-1,NC The total number of spanwise strips is limited to 30. 


Group 9 5(6X, l4) 1 card 

NJW(I) The numerical order of the flap and jet spans among 

I=1,NFP the spanwise sections. 
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Groi;© 10 ioimat 5(6x, l4) 1 card 


HW{l) Number of chordwise vortex elements in each, chordwise section. 
NW(2) The planfom is divided into chordwise sections according 
NVr(3) to such lines of discontinuity as jet exit, flap hinge, etc. 

If there is only one section, SET NW(2) = NN(3) = 0. For 
2 sections, SET NW{3) = 0. 

ICAM = 1 if the camber ordinates of the airfoils are to be 
read in. 

dZ 

= 0, otherwise. In this case, the camber functions (■-— } 

dx 

in close-form expressions are to be inserted manually into 
subprograms ZCP.(x) and ZCT(x) , the root chord and tip 
chord camber functions, respectively. 

Number of camber ordinates to be read in. (Limited to eleven). 
Arbitrary if ICAM = 0. 

Note : Group 11 must be deleted if ICAI4 = 0. 


Group 11. Format 8F10.5 H or 8 cards 

XT(l,J), J=1,I14 Non-dimensional x-coordinates to define root 
camber. 

ZC(l,J), J=1,IM Non-dimensional camber ordinates of the 
root chord. 

XT(2,d), J=1,IM Non-dimensional x-coordinates to define tip camber. 
ZC(2,J), J=1,IM Non-dimensional camber ordinates of the tip chord. 


Group 12. Format 6F10.5 1 card for each wing section, 

XXL(1) x-coordinate of the leading edge of the inboard boundary 
chord of a given spanwise section, 

x-coordinate of the trailing edge of the inboard boundary 
chord of the same spanwise section* 


X3CT(1) 


y-coordinate of the inboard bomdary chord. 

>JQj(2) X"COordinate of the leading edge of the outboard boundary 
chord of the same spanwise section. 

}C3CP(2) x-coordinate of the trailing edge of the outboard boundary chord 

YL(2) y-coordinate of the outboard boundary chord. 


Group 13- Format 6(6X, I^)j 1 card 
dWJ Number of jet sections. 

Note. Trie jet region above or on the wing must be 
divided into streamwise sections by following the divided 
planform pattern. It is important to start the jet 
sections always from the wing leading edge even if the jet exit 
is downstream of the leading edge. The only exception is when 
the jet exit is at the trailing edge. In this case, 

NKJ=1 and the jet section starts from the trailing edge. 

NNJ is limited to t. For the configuration of Figure 1, 

nnj=4. 


NSJ = Number of jet circumferential strips minus one for a non- 

centered jet (always use odd numbers). 

- Number of jet circumferential strips on the half jet plus, 

one for a centered jet (always use even numbers). See figure 3. 

NCJ(l), No. of streamwise vortex elements in each section. There 
I=1,NKJ 

should be NNJ numbers. For those jet sections above the 
wing, these numbers shovild agree with the corresponding 
numbers of wing vortices. See KW(l). NW(2), W(3) in 
Group iO . 
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Mote ; Group l4 must "be deleted for USB applications 


Group l4. Format 6 FIO .5 3SHJ cards 


m(i) 

XXT(l) 

YL(1). 

XXL(2) 

XXT(2) 

YL( 2 ) 


Coordinates of bounding chords of the jet section 
projected on the x-y plane. For definition, see Group 12. 


Mote . Group 15 is to be deleted for OWB applications. 

Group 15 . Format UFIO.5 (4 xmNJ) cards. 

XXL{l) Coordinates of the bounding lines defining the 

XXf(l) rectangular jet sections in USB applications. 

YL(l) They are the x-coordinates of the leading and 

ZL(l) trailing edges, the y-coordinate and the z- 

coordinate of the bounding line. The 4 stream- 
wise edges of each section are defined in the 
order illustrated in figure 2. There are 4 
cards for each jet section. The jet section be- 
hind the trailing edge, (trailing jet section) , 
should be at least one local chord in length. 


f 


Groi^ l6 Format F10.5 (ICASE-I) cards 

ALP angles of attack in degrees. These cards are to he 

included only if additional angles of attack for the 
same configuration and VMU (NG=0) are to he run. 

Note ; The read statements for the input data in group 3 thru group 15 
can he seen in subroutine "GEOMTY” of the program listing along 
with a short definition of the parameters to he read in. The 
read statements for groups 1, 2, and l6 along with the corres- 
ponding parameter definitions can he seen near the beginning 
of the program listing in the main routine. 


Pre-Bun Check List 


Before the program is rvin , the following checiklist should be 
completed: 

(1) The array, G-AI®!*., defined in the subroutine "SOLUTN" , should 

2 

be dimensioned to have at least (N+l) /4 elements, where M 
is the total number of unknowns (= LTOTAL). 

(2) For W = 283, the minimum memory needed is 42K (decimal). 

For any other *1, the reqiiired memory can be computed accord- 
ingly, based on the change in GAMMA, array. 

(3) The root and tip camber slope functions should be defined 
manually in the subprograms ZCR(X), ZCT(X) respectively, 
otherwise the root and tip camber ordinates should be I'ead in. The 
canber slope function, dz^/dx, is defined with respect to a unit 
chord length. 

( 4 ) Two teii^orary files or tapes must be provided, one being 
designated as (Ol) and the other (02). 

(5) Chedc input data. 
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OUTPUT DATA FOBMAT 


First the title of the joh and the input data .fill be printed 
in the same format as it was input. If the job is an over-wing 
blowing configuration the conqouted jet entrainment will be printed 
after the fourth line of input data as follows: 


XJET 


R 


JKT 


m 

DX 


HALF SW 

GREF 

LPAMEL 

JPAHEL 

LAST 

LTOTAL 


Doimstreaifl distance of a given cross-section from the 
jet exit divided by the jet radius at the exit (r^)* 
the radius of the jet cross section divided by the original 
j et radius ( ^^ ) • 

Values printed are actually the nondimensionalized entrain- 
ment function L’(x) (see eq.uation 33 of reference 3) 

the reference half-wing area 

, , , ^wing HALF SW 

the reference mean chord = — — 

the number of wing vortices 

the number of outer (or inner) jet vortices 

the number of wing vortices plus the number of outer jet 

vorticies. LAST = LPAHEL + JPAWEL 

LTOTAL is the total nunfljer of vortices used which is also 
the total number of unknowns to be solved. 

LTOTAL=LPAITBL 2 (jPAHEL) = LAST + JPAlfEL 


If the job is an OWB configuration a note will be printed at this time 
indicating the shape of the equivalent jet cross-section -used for the 
interaction computations along with 3 parameters defined below. 

1. x-coordinate where the equivalent jet properties are 
evaluated. 


2k 


2. Equivalent Jet Badius: the radius of the jet at the x location 

listed above 

3. Vo the velocity ratio of the equivalent jet. 

''j 

Vortex Element Endpoint Coordinates 

’^1^ coordinates for the inboard endpoint of a bound vortex 
element 

(XgjYgjZg) coordinates for the corresponding outboard endpoint. 

Vfing elements are listed first and then jet elements. 
The number of elements listed should equal (LAST). 


Control Point Coordinates 


2 columns of control point coordinates, one point for each vortex 
element. Number of points listed should equal (LAST). 

Sectional Pressure and Force Data 


XV Percent chord location 

YV Percent span location 

CP the total AC at the given (XV, YV) point due to both wing 

P 

and jet induced circulation 

CPW The AC that would occur at that same point for the wing 
P 

alone case 

Y/SP the y-coordinate of the chord in question divided by the 
half-span 

CL The sectional lift coefficient due to circulation (jet on), 

nondimensionalized with 

CM The sectional pitching moment coefficient about the Y-axis, 

2 

nondimensionalized with q^c . 

CT The sectional leading edge thrust coefficient, nondimension- 

alized with q^c. 

GDI The sectional induced drag coefficient, nondimensionalized 
with q„c. 

GLW The sectional lift coeffic5.ent for the wing alone case 

CMW The sectional pitching moment about the Y-axis for the wing 

alone case 

CDW The sectional induced drag coefficient for the wing alone case. 
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Total Force and Moment Data 


The Lift Co- - The total circxilation lift coefficient due to the 
efficient 

wing, wing- jet interaction and entrainment (if any). 

Total Induced Total induced drag coeff. for the jet on case 
Drag Coefficient 

C 

Induced drag = '^I 1 

parameter 2 Tre-ftB 

Total Pitching = Pitching moment coefficient due to all circulation forces, 
Moment Coefficient 

about the Y-axis. Nondimensionalized with CHEF. 


Note: In the case of OWB jobs, these coefficients reflect 

the total jet-on forces and moments, but for USB jobs 
the coanda force and moment coefficients must be added 
to these; see below. 


USB Jobs 

Coanda Lift - The lift coefficient due to the lift component of the jet 
Coefficient 

reaction force 

Coanda Drag - Drag coefficient due to the drag component of the jet 
Coefficient 

reaction. 

The Coanda - Pitching moment coefficient due to the pitching mcment caused 
Moment Coeff. 

by the Jet reaction force (about Y-axis). 


In the case of O.W.B. jobs the next three coefficients listed have the 
same definition as the first three except that the effects of wing— jet 
interaction have been ommitted from the consultation. 
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All Jobs 


The last four coefficients printed are due to aerodynamic forces and moments 
generated solely "by the wing without any jet effects, (jet off) 
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EXAMPLE IHPira MD OUTPUT 


The following is an example of a simple over-wing blowing configuration 
including a listing of the input data cards and the corresponding output. (See 
figure U) Following this is an example of an upper surface blowing job; see 
figure 5. Figure 6 is a plot of the wing and jet vortices for this USB job, 
which was made with the listing of the vortex endpoint coordinates in the 
output. Finally figure T is an illustration of one way of breaking down a 
more complicated wing into individual wing and jet sections. 

Listing of Input Data Cards for the OTO Example Job 

card 

1 FALK'S WIHG 1 WITH VMU=0.250»»« 


2 


1 

1 

0 


3 

0. 

0. 

0.250 

1. 6. 

0. 0. 

k 


1 

1 

0.0 


5 

1. 

0. 

0. 

-1.39536 0. 

.17442 0.11628 

6 

5.25 

0. 

0. 

0. 0. 

0. 0. 

7 


2 

3 

9 


8 

• 

1 




9 


5 

0 

0 0 

0 

10 

0. 

1. 

0. 

0. 1. 

0.11628 

n 

0. 

1. 

0.11628 

0. 1. 

1. 

12 


3 

6 

4 5 

4 

13 

-1.39536 

0. 

0. 

-1.39536 0. 

0.11628 

lU 

0. 

1. 

0. 

0 . 1 « 

0.11628 

15 

1. 

2. 

0. 

1. 2. 

0.11628 
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|(-1. 39, .11628) Jet Exit 



(1, .11628) {1,1) 


Trailing Jet Section 


(2,. 11628) 






6 


FJiLK«S UJNG I t^ITF Vt^U = 0,?EO<><>« 

»«««•»»*««•»•»««<**«««««««« OUTHJT FOR THE OWE TEST CASE 

1 1 0 

XXXxXji/X/XXXXXXXXXXXXXXXX 

CASF hU"f'Et- = 1 

XXXXXXXXXXXXXXXXXXXXvyxXX 


INFLT DAT/i 


O.OQOQO 

O.OOOOO 

.?EOOO 

1.00000 

t . or POO 

0.00000 

n * c n rj 0 0 

1 

1 


0 . c 1 0 f> r 




i.OOQOO 

o.ooona 

0 • 0 0 n 0 (j 

-1 ,?9'=?6 

o.nnooc 

.1744? 

• 1 

S.2500C 

u.ooooo 

0.00000 

0.00 nor 

u , n 0 r, n 0 

0 . 0 0 0 0 (' 

0,00000 


THF COMPUTED JET FNTHAINf'EM AFP A« FCLLCwS 


XJET RJET DF/CX 


50930 

2,704.63 

,06796 

10.25930 

2.70463 

,08796 

11.75930 

2,70571 

.06792 

12.25930 

2,72650 

,08707 

14,75930 

2,78574 

,08469 

IE, 25930 

2.87620 

.08118 

17,75930 

2,98591 

,07713 

19.25930 

3.10629 

.07293 

20,75930 

3,23305 

.06877 

22,25930 

3.36106 

,06482 

23.75930 

3.4P92S 

,06110 

25,25930 

3.61646 

.05764 

26.75930 

3.74197 

.05442 

26,25930 

3.86537 

.05144 

29,75930 

3,98643 

.04869 

31.25930 

4 . 10501 

. 04614 

32.75930 

4,22110 

,04379 

34.25930 

4.33467 

.04161 

35,75930 

4 ,44578 

.03959 

37.25930 

4.55448 

.03772 

36,75930 

4.66083 

.03597 

40.25930 

4.7fc49l 

.03435 

41,7593r 

4,86681 

.03284 

43,25930 

4,96659 

.03143 

44.75930 

5.06434 

.03011 

46,25930 

5.16014 

.02688 

47.7593C 

5,?5405 

,02772 

49,25930 

5.34616 

.02664 

50.75930 

5.43653 

. 02562 


5F. 25930 

5.52523 

,02466 




53,75930 

5,61233 

,02376 




E 

1 

3 

9 




5 

0 

0 

r 

0 


0.00000 

1.00000 

0,00000 

O.tiOOOn 

1 . ooooo 


0.00000 

1,00000 

,11626 

o^onoor 

l.oonoo 

1.00000 

3 

6 

4 


4 


-1,39536 

0.00000 

0.00000 


o.ooono 

.11626 

G.OOOOO 

1,00000 

0.00000- 

o.ronoo 

1,00000 

.1162P 

l.oonoc 

2.00000 

0,00000 

1 * 0 n n 0 c 

2.00000 

.11626 

half SW= . 

lOOOOE+01 


CRFF= .liinooH + Ol 


LPAKEL= EO jPANFL= f-5 LAST=I1*^ L7CTAL = lfin 

x)(xxx;(xxxxxxxxxxx;(x)i;<xxi‘)ixxxxvxxxyjcxx)<xxxxxxx)0fxx;< 

A RFCTA^6LLAP JET hITH LATfc«AL EXTtM EGL.AL 
TC THE FGUIVALF^T oET CIAwETFP IS ISEP FOR 
I^TEFACTIO^ CCHPtTATlON 

NOTE. CHECH WHETHER THF W IHiF IS IHHFFSFr IH THF JFT 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


THE EQUIVALENT JET PROPEPTIES 
THF EQUIVALENT JET RAIllUS IS 

ARE FVALLATED AT 
.22166 

.noooc 

THE VELOCITY RATIO OF THE FPUIVALF.M JET 
VORTEX element ENDPOINT CCOPCiNATESs 

♦VO/VJ,IS 

,41935 

XI 

X2 

Y1 

V? 

71 

72 

,02447 

.02447 

0.00000 

,11064 

0 . oooon 

0.00000 

.20611 

.20611 

e . 00000 

,11084 

o.onooo 

0 , coonc 

.50000 

,50000 

0 . oocoo 

.11064 

0. oonno 

G.OOOOO 

,79389 

,79389 

0.00000 

.11064 

o.oonoo 

0.00000 

,97553 

.97553 

0.00000 

. 11064 

0. oonoo 

0 . ocooo 

.02447 

.02447 

.11064 

.22166 

0.00000 

o.cooon 

.20611 

,20611 

.11084 

.22166 

0. ooono 

0.00000 

,50000 

,50000 

. 11084 


0.00000 

G. oooon 

,79309 

,79389 

,11084 

•22166 

0,00000 

G.OOOOO 

.97553 

.97553 

. 11 064 

.22166 

0. ooQon 

0. oocoo 

.02447 

.02447 

.22166 

.27361 

0,00000 

0.00000 

.20611 

.20611 

.22168 

.27361 

0. ooono 

0.00000 

.50000 

.50000 

.22168 

.2736] 

0, ooono 

r, 00000 

,793P9 

.793P9 

.22166 

.27381 

0.00000 

0 , oooon 

P .97553 
,02447 

,97553 

.22168 

.27361 

0 , ooono 

0, oooon 

,02447 

.27361 

,36069 

0 , on 00 0 

0 . noooc 

» + 







I^TT%'"^TT‘iTnit1 fttiiil '-|fw iiiirHii f^liniHl 1l1i 


.P0611 

.20611 

,27381 

.50000 

.5C00C 

.27381 

.79389 

.79389 

,27381 

.975*s3 

.97553 

,27361 

,02447 

.02447 

,36069 

.20611 

.20611 

.3606.9 

,50000 

.60000 

.36069 

,79389 

.79389 

,36069 

,97553 

.97553 

,36069 

.02447 

.02447 

.47774 

.20611 

.20611 

,47774 

.50000 

.50000 

.47774 

,79389 

.79389 

,47774 

,97553 

.97553 

.47774 

.02447 

.02447 

,61 084 

.20611 

.2061 1 

.61064 

.SOOOC 

.50000 

,61064 

,79389 

,79389 

,61084 

.97553 

.97553 

,61084 

.02447 

,02447 

,74394 

,20611 

.20611 

,74394 

.50000 

.50000 

.74394 

,79389 

,79389 

.74394 

.97553 

.97553 

.74394 

,02447 

,02447 

.86099 

.20611 

.20611 

,86099 

.50000 

.50000 

,86099 

.79389 

.79389 

.86099 

,97553 

,97553 

.86099 

,02447 

,02447 

.94786 

.20611 

.20611 

,94786 

,50000 

.50000 

.94786 

.79389 

.7938.9 

,94786 

,97553 

,97553 

,54786 

1.34225 

-1.34225 

O.QOOOO 

•• .96467 

-.96467 

0.00000 

-.43069 

-.43069 

O.ODCOO 

-.05311 

-.05311 

0.00000 

1.34225 

-1.34225 

.11084 

-.96467 

-.9646? 

.11084 

-.43069 

-.43069 

.11084 

-.06311 

— , Q53 1 1 

.11084 

1,34226 

-1.34225 

.22168 

-.96467 

— .96467 

,22168 

-.43069 

-.43069 

.22168 

-.05311 

-.05311 

,22168 

1.34225 

-1.34225 

0,00000 

-.96467 

-.96467 

O.COOOO 

-.43069 

-.43069 

0.00000 


,36069 

0.00000 

C. 00000 

,36069 

0. on 00 0 

o.oooon 

.36069 

0.00000 

0.00000 

,36 069 

0.00000 

o.oooon 

,47774 

0.00 0 0(1 

G.flOOOO 

.47774 

C. 00000 

n. nnooo 

,47774 

0.00000 

c.ooooc 

,47774 

0,00000 

0.00000 

,47774 

o.onooo 

0, 00000 

.61084 

G, 00000 

c.ocooo 

.61084 

0.00000 

o.onooo 

,61084 

0,00000 

C . 00 000 

.61084 

o.oooon 

0.00000 

.61084 

0,00000 

0.00000 

.74394 

c, nnooo 

C. 00 coo 

,74 394 

0 . 0 0 0 0 0 

n.ooooo 

.74394 

o.onooo 

o.noooo 

.74394 

C. 00000 

c.nocno 

.74354 

c.ooooc 

C. 00000 

,86055 

0.00000 

c. nnooo 

.86059 

O.OOnr'O 

0.00000 

,8fcOQ9 

o.oflono 

o.onooo 

.86099 

0,00000 

o.noooo 

.86055 

0.00000 

0.00000 

.54786 

Q.OOOflO 

0.00000 

.54786 

o.ooono 

0.00000 

,54786 

n.oonoc 

0,00000 

,54786 

o.ooono 

n.ooooo 

.54766 

0,00000 

n.ooooo 

.99405 

0,00000 

o.ooooo 

,95409 

0.00000 

n.ooooo 

.99405 

0,00000 

0,00000 

,55409 

0,00 00*0 

o.ooono 

.55405 

0,00000 

0.00000 

.11064 

.34 8?] 

.34821 

.11084 

.348?! 

.34621 

.11084 

V. .34821 

,24821 

.11084 

. 34821 

.34H21 

,22168 

.34621 

,34621 

.22168 

.34821 

.34821 

.22168 

.34821 

.34821 

.22168 

,34821 

.34821 

.22168 

,34821 

0,00000 

.22168 

.34821 

0,00000 

.22168 

.34821 

0,00000 

.22168 

.34821 

c.ooooo 

.11084 

0,00000 

0.00000 

.11084 

o.onooo 

0.00000 

,11084 

n, 00000 

0,00000 
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-.05311 

-.05311 

■ 1,34225 

- 1.34225 

-.96467 

-.56467 

-.43069 

-.43069 

-.05311 

-.05311 

.02447 

,02447 

.20611 

.20611 

,50000 

,50000 

.79389 

.79389 

.97553 

,97553 

• 02447 

, 02447 

.20611 

.20611 

.50000 

,50000 

,79389 

,79389 

, 975^3 

,97553 

,02447 

,02447 

.20611 

.20611 

,50000 

,50000 

.79389 

,79385 

.97553 

,97553 

.02447 

,02447 

,20611 

,20611 

.50000 

,50000 

,79389 

,79389 

.97553 

,97553 

.02447 

.02447 

.20611 

.20611 

,50000 

.50000 

,79389 

.79389 

,97553 

.97553 

1,03806 

1,03806 

1.30866 

1.30866 

1,69134 

1,69134 

1,96194 

1,56194 

1,03806 

1,03806 

1.30866 

1.30866 

1,69134 

1.69134 

1.96194 

1,96154 

1.03806 

1,03806 

1,30866 

1,30866 

1,69134 

1.65134 

1.96194 

1,96194 

1,03806 

1.03806 

1.30866 

1.20866 

1,69134 

1.69134 

1 .96194 

1,56194 

1.03806 

1,03806 

1,30866 

1,30866 

1.69134 

1.65134 

1,96194 

1.56194 


C.oopoo .llOPA 

. 110 R 4 .csite 

.nrt<4 .?2UF 

.11084 

0.00000 .llnpi 

o.oonco .11084 

o.oonoo .nop4 

o.noooo .11084 

O.OOC'flO .11084 

.11084 .gciep 

.11084 .rSieF 

.11084 .2?168 

,11084 .5218P 

.110P4 .E?1PP 

.icitH , i 2 iee 

.?216P .??18P 

•Eriee .82188 

.22188 .22168 

,22168 .2218P 

0.00000 .110C4 

0.00000 ,11084 

0,00000 ,11084 

0,00000 .11084 

0,00000 .11084 

.11064 ,22166 

,11084 .2218P 

.11084 .22188 

.11084 .22188 

,11084 .22188 

O.OCOnO ,11084 

0,00000 .11064 

0,00000 ,11084 

0,00000 ,11084 

.1108'* ,22l8f' 

.11084 .22188 

.11084 .22186 

,11084 .22168 

.22168 .22188 

.22168 ,22168 

,22168 .22168 

.22168 ,22168 

0,00000 .11084 

0,00000 .11084 

0.00000 .11084 

0,00000 ,11084 

.11084 ,22188 

.11084 .22188 

,11084 ,22188 

,11084 .22188 


(j.oonno u. 00000 

o.noooo 0.00000 

fi.noonn 0,00 00 0 

0.00000 1.. 0000G 

0,00000 (. .onoofi 

,34 8.21 . 34(?21 

.34821 .34821 

.34021 .34821 

.34821 ,34821 

.348?] ,34821 

.34821 .34821 

,34821 .34821 

.34821 .34621 

.348?] .5462] 

.34821 .34821 

,34821 C.OCOOr. 

,34821 C, 00000 

.348?] 0,00000 

. 34821 0, OOOOn 

,34821 O.COOOO 

0,00000 ( , 00000 

0,00000 O.OOlfUO 

C.OOOOfi 0.00000 

0. 00000 C.OOQOP 

o.oonoo c.Qoooo 

o.noooo c.noooo 

o.noooo 0.00000 

0,00000 0,00000 

o.ooono O.COOOO 

o.oonoo c, 00000 

.34821 .34821 

.34821 ,348?1 

.3^-8?l .34821 

.348?! .34621 

.34821 .3482] 

,348?1 .34821 

,34021 .34821 

,34821 ,34821 

.34821 r.oooot 

,34821 0,00000 

.34821 0.00000 

.34821 o.noooo 

o.ooono o.oonoo 

o.oonoo 0.00000 

o.oonoo 0.00000 

0,00000 C , 00000 

O.OOOfKP 0.00000 

o.oonoo 0,00000 

o.oonoo o.nocoo 

o.noooo 0.00000 
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CONTROL FCIN'T CCOHniNATE S= 


XCP 

,09«545 

i.oonoo 

,345A9 
,904'51 
.09549 
.654F1 
I.OOQOO 
,34549 
.90451 
,09549 
.65451 
1. 00000 
,34549 
.90451 
,09549 
,65451 
I.OOOOC 
.34549 
.90451 
.09549 
,65451 
1.00000 
,34549 
.90451 
-1.19101 
-.80435 
-1.19101 
-.20435 
-1.19101 
-.20435 
-1.19101 
-.20435 
-1.19101 
-.20435 
.09545 
.65451 
1.00000 
. 34549 
,90451 
,09549 
,65451 
1.00000 
.34545 
.90451 
.09549 
,65451 



YCP 

7CP 

XfP 

.05542 

o.onnon 

.34=49 

.05542 

0.00000 

,9(’4=1 

.05542 

0.0000(1 

,09=4C 

.16626 

(t.POOCO 

.6545] 

.16626 

C.OOOOO 

1 .OOQOP 

.24514 

n.oQcoo 

.34549 

,24=14 

0.00 coo 

.904=1 

,24514 

C.OOOOO 

,09549 

,31?72 

o.rocoo 

.654= 1 

.31272 

o.ncooo 

1 .00 000 

,41 626 

0.00000 

.34=49 

.4 1626 

o.onnoo 

.90451 

.41626 

o.oon(?o 

,09549 

,54326 

C.OOOOO 

,654=1 

.54326 

0,00000 

1 , cpnoo 

.67842 

0.00000 

,34=49 

,67842 

0.00000 

.90451 

,67842 

P.00000 

,09=49 

,80542 

0,00000 

.654= 1 

.80542 

0.00000 

l.OGOOC 

,90895 

o.ocooo 

,34 54 9 

.90895 

0.00000 

,904= 1 

.90695 

o.oocoo 

, 09=49 

.97653 

0.00000 

.654=1 

,97653 

0,00000 

1 . noooc 

.05542 

,34821 

-.69768 

,05542 

,34821 

n.oonnr 

.16626 

.34821 

-.69768 

.16626 

.34821 

0 . nonoo 

,22168 

.17410 

-,t976p 

,22168 

,17410 

0 . 0 0 0 0 c 

. 05542 

0, CPCGO 

-.69760 

,05542 

0,00000 

n. ooooo 

.16626 

O.OOCOO 

-.69768 

.16626 

n. 00000 

0,00000 

• 05542 

.34621 

.34549 

.0654? 

,34821 

.90451 

,0‘=5542 

.34821 

.09549 

.16626 

,34821 

,65451 

,16626 

,34621 

1 , 0 0 0 0 0 

,22168 

.17410 

.34549 

,2?16P 

.17410 

.90451 

,22168 

.17410 

, 09549 

4 05542 

0. 00 or 0 

.6=451 

.05542 

C.OOOOO 

1.00000 

. 16626 

0,00000 

,34=49 

.16626 

0 , ooorc 

.904=1 


YCP ZCF 

,0554? 0.00000 

,0=54? 0,00000 

,166?f- C .00000 

,16620 O.OOOllfl 

.166?e 0,00000 

,?45i4. n . 00 00 0 

• G.OCCOO 

.31?7? 0.00, 000 

,31?7? 0.00000 

,:n?7? c.onnon 

.41626 0.00000 

,416?6 C, 00000 

,543?f. 0,00000 

,5'*3?6 0.00000 

,*^43?f n.nccoo 

.6764? r, 0000(3 

.67P42 C, 00000 

,tOP4? 0. 00000 

.pot^o? c.oooon 

,P054? C. 00000 

.90F9‘=' 0,00000 

.90P95 0.00000 

.97653 0,00000 

.97653 C.OOOOO 

,97e'i3 0,00000 

.05=4? ,346?1 

.0554? .34821 

•166?p .34P21 

,16626 .34621 

,??166 ,17410 

.??16P .17410 

.0654? r.l'OCO(' 

,05542 0,00000 

.16626. 0.00000 

.16626 C.OOOOO 

.05542 ,34821 

,05542 .34621 

.166P6 ,34t?l 

.16626 ,34821 

.16626 .34P21 

.2216P ,17410 

.??16P .’7410 

,0=562 0,00000 

,0554? 0.00000 

.0554? 0,00000 

.16626 0,00000 35 

.16626 0,00000 





1.00000 

,1662ft 

0,00000 

1.14645 

. 05C42 


.34621 

1 . So 00 0 

,05542 

.24S21 

I.P535F 

.05502 


,34t!?l 

e. 00000 

,05542 

.34H21 

l.lAft4= 

,16.6?ft 


.34821 

1 ,50000 

,16626 

,34P21 

1 ,e53‘=5 

.leep'^ 


,34821 

e.oonoc 

.16626 

,34621 

1.14645 

.22166 


.17410 

1,50000 

.2216? 

.17A10 

1 ,?53F^ 

,221ft? 


.17410 

2,00000 

,2216? 

.17410 

1.14645 

. 055* 2 

0 

. 00000 

1.50000 

,05542 

0.00000 

l.ft53S5 

• 05542 

(1 

,00000 

£.00000 

. 05542 

0,00000 

1.14ft45 

. 1662ft 

n 

.00000 

1.50000 

, 16fi26 

0.00000 

1,?F‘S55 

,1662ft 

0 

,00000 

E.OOOftO 

,1662ft 

0 , 0 0 0 0 0 






xyxyxxxx;<x;<xxxjoo{x)(xx>xxxxxxi«xxxxxx/xxxx 
ALFhA = f.onn HFPRF.tS 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


VORTEX 

XV 

YV 

CP 

CPh 

1 

.02447 

.0«542 

4,15144 

1.46219 

2 

.20611 

.0554? 

1,10949 

.41118 

3 

.50000 

.05542 

,43299 

,17943 

4 

,79369 

. 0554 ? 

,20702 

.OPPflO 

K 

.97553 

,0554? 

.43452 

,02380 

6 

,02447 

.1662ft 

2.06471 

1 ,45205 

7 

.20611 

,1662ft 

.78838 

.40701 

8 

.50000 

»16ft?ft 

.27282 

.17689 

9 

,79389 

.16626 

.07586 

.07952 

10 

,97553 

,16ft?6 

.41985 

,02341 

11 

,02447 

,24514 

2.25578 

1,43773 

12 

.20611 

,24514 

.54247 

.40100 

13 

,50000 

. 24514 

,25654 

,17329 

14 

.79389 

.24^14 

,14245 

.07775 

15 

.97553 

,24514 

.06023 

.02288 

16 

.02447 

.3127? 

2,04471 

1 ,41836 

17 

.206 11 

.3127? 

.5424? 

,39279 

la 

,50000 

.3127? 

,24503 

,16845 

19 

.79385 

.31272 

.13046 

,07539 

20 

.97553 

.3127? 

.04762 

.02220 

21 

.02447 

,4lft?ft 

1. -8 3521 

1,37963 

22 

,20611 

.4162ft 

,51211 

.37635 

23 

.50000 

.41626 

.22591 

,15896 

24 

,75389 

,41626 

,11360 

.07084 

25 

,97553 

. 4 16?6 

,03724 

.02088 

26 

,02447 

,54326 

1.64156 

1,31156 

27 

.20611 

.54326 

,45e73 

,34743 

28 

,50000 

.54326 

.20091 

.14305 

29 

.75389 

,5432ft 

,09626 

,06345 

36 3'’ 

,97553 

.54326 

.02989 

,01875 

^ 31 

.02447 

,6764? 

1.4^226 

1 -20253 



3? 

,20611 

.6784? 


33 

.£000(1 

.6784? 


3^ 

.753P9 

,67842 


35 

,57£f)3 

.6784? 


36 

,02407 

,H(154? 


37 

.20611 

.8054? 


38 

.£0000 

,80542 


39 

.75385 

,8054? 


40 

.97553 

.8054? 


41 

, 02447 

,90895 


4? 

.20611 

.90895 


43 

.50000 

,90895 . 


44 

.79385 

.90895 


45 

.97553 

.9089C 


46 

.02*47 

.97653 


47 

.20611 

.97653 


4R 

.50000 

,976'=3 


49 

,75389 

.97653 


50 

.97553 

.97653 


Y/SP 

CL 

CP 

CT 

»05S42 

,91630 

-.21781 

.01545 

.16626 

,54377 

-.14334 

.00169 

.24514 

.48800 

- , 1 098 1 

,06780 

.31272 

,45445 

-.10266 

.04390 

.41626 

,41430 

-.09323 

.03375 

.54326 

.36677 

-.08119 

,02722 

*67842 

,31155 

-.06686 

.02139 

.80542 

,24693 

-.05061 

.01559 

^90095 

.17216 

-.03337 

.00976 

•97653 

,08870 

-.01640 

.00491 


n-E LIFT COEFFTCIENT = ,35681 






,35300 

.30144 



.16420 

,11988 



.07774 

.05315 



,02390 

.01585 



1.20880 

1.03763 



.29228 

.23554 



.12232 

.09081 



.05828 

.04071 



.01626 

,01245 



,9ri654 

,79296 



.16906 

.15404 



.07939 

.05941 



,03866 

.02728 



,(H?93 

.00693 



,49804 

.44017 



.0H684 

.07249 



.03663 

,02898 



.01923 

,01363 



.00742 

,00515 



CPI 

CL«. 

CHh 

ecu 

,08077 

,32617 

-.07136 

.01230 

,05526 

,32296 

— » 07043 

.01225 

-.03700 

.31839 

-.06912 

,01218 

,00363 

.31221 

-.06735 

.01205 

.00961 

.29997 

-.06388 

.01180 

.01118 

,27886 

-.05804 

,01134 

.01124 

,24632 

-.04943 

,01053 

,01027 

.20062 

-.03825 

.00924 

,00828 

,14262 

-.02550 

.00726 

.00439 

.07423 

-.01256 

,00381 


rCTAL IIViCLCED H«AG CCFFFICIEM = .r<lFF4 
-IE INDUCEP nRAG P/iRAt'ETER = .11772 

r:T/>L PITCHING POHFNT CCEFFICIENT = -.05077 


The LIFT COtFFlCTtNT HTH JET ENTRPIFNRNT OLONE = ,26560 

THE IKnuCEP HRAG COEFFICIENT KITH JFT EKTRAINFEKT ALONE = .00866 

THE PITCHING HOMENT COEFFICIENT WITH wFT ENTRPINNEM PLCNF = -.05561 

"HF LIFT coefficient FCR THF h^ING PLCNF= ,?5?3H 

'HE induced drop coefficient for the VIK- ALONF= .01030 37 


THE PITCMNG f/OMENT COFFFICIFM FCfi THE hlFG ALCNE= -,0=?5« 
THE INDUCED DRAG P/»P/>VETEP FOP THE V INF ALOEF= 


ERROR RUHHaRY 

ERROR TINE? 

0115 C151 


4APAKFI 


7e/l 0/07,NflS^/LPf CY]7'^-T 


Ncs 1,1 am 


» 


lo.i?.io.i;S“Ciwfta5oo,CNinocp . 

10.12. 10. El?12 FILL^ftN 

10.12.10. LCEP,274?0OE. 

1ft, 12, 10. CHARGE, 10 14 P'S, LPC. 

10.12. 10. GFT,OLDPL=LSF. 
10.12.13,bPPATE,0,C,P,I,L =41234, 

10.12, IP. update ccf-piete. 

10.12.1fl,FTN,I ,L=L, 

10,33.42. 10.336 CP SECO^CS CC I L A T I TInf 

10.^^,4^.LnSET,PPEFET=^C-l^F,YAP = SF. 
10,33,42.160. 

10,33.48, ^C^-FATAL LC^l'FH pt-FCtc - 

10,33.60, tvDN-FATAL ICACEH F(,h'nFc _ ' A F 

10.40.24. STOP 

10.40.24. 18.334 CP SECCAOS ExhCLTION TT^'Fl 

10.40.24. LEPF, O.P^EKLNS. 

10.40.24. L'EF'S, 22.7F4KLRS. 

10,40,?4,LECP, 30.190CPCS. 

10.40.24. AESR, 34n,347LNTS. 
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lupui: Da~ba for the USB Test Case 


USB 

TBS® CASE, SEE TH D -7526 




1 

1 

1 



0. 

0. 

0.1288 

1. 

6. 

-1.968 3.2927 


3 

2 

60.0 

60.0 

60.0 

l 9 .Ti +35 

- 3.0 

1.5 ' 

- 0.9158 

4.8 

0.0 0.5 

0.0 

1.0 

1.0 

0.11636 

0.23277 

- 0.02532 -0.05064 

2.0 

62.0 

0.0 





5 

3 

3 

4 

4 4 


2 

3 

4 




2 

3 

2 

0 

5 

1.968 

-0.8276 

0.0 

-1,968 

-0.8681 

2.2 

1.968 

-0.8681 

2.2 

-1.968 

- 0.8921 

3,51 

1.968 

-0 . 8921 

3.51 

-1.968 

-0.9396 

6.09 

1.968 

-0.9396 

6.09 

-1.968 

- 1.0429 

11.70 

I.96S 

- 1.0429 

11.70 

-1,968 

-1.168 

18 .50 

0.6276 

2.3085 

0.0 

- 0.8681 

2.1567 

2.2 

0.8681 

2.1567 

2.2 

-0 . 8921 

2.0665 

3.51 

0.6921 

2.0665 

3.51 

-0.9396 

1.8885 

6.09 

0.9396 

1.8885 

6.09 

- 1.0429 

1.5012 

11.70 

I.OI29 

1.5012 

11.7 

-1 .168 

1.032 

18.50 

2.3035 

3.734 

0.0 

2.1567 

3.5316 

2.2 

2.1567 

3.5316 

2.2 

2.0665 

3 . 4 ii 4 

3.51 

2.0665 

3 . 4 ii 4 

3.51 

1,8885 

3.17^ 

6.09 

1.6885 

3.174 

6.09 

1.5012 

2.6576 

11.7 

1,5012 

2.6576 

11. T 

1.032 

2.032 

18.5 



In addition to the input data listed in the previous page, the root 
and tip camber slope funtions must be inserted manually in subprograms ZCR 
and ZCO! respectively. An alternative to this is to input the camber or- 
dinates with the input data, (see group 11, input data format). 

Also 3 "GAMMA" must be dimensioned in subroutine "SOLUTlf'’ . See the 
prerun check list for detennining the siae of GAMMA. 


Boot Camber Funtion 

ZCR = 0.0212207*(-2.«(0.5-X)'»ALOG(ABS(0.5-X))+2.*(1.-X)*ALOG(1.-X) 
l-AL0G(X)-0.5) 

Tip Camber Funtion 
ZCT = 2.«ZCR(X) 

GAMMA 

DIMENSION AW( 300) ,CA( 300) ,GAMMA{201T0) 


4l 


V 


















■ft «•)»•»•»» -muf ««•» a -{HMHH! •» •!H5 -iHHJ « 

u&S TFST C^iSEt SFF TK 

* Hi- 'iHl- HI HI i'rii Hi Hf -Jt Hf -St Hi ii iV i> Hi Hi 0 Hi Hr Hi ii Hi Hi HI Hi HI ii C OUTHJT FOR THE USB TEST CASE 

1 1 1 

>yxyxx)f>f/xxxy;‘;t){xxyxxxx)t5' 

CASt, At-t-'-iF = 1 . 

X V y y X y X y y y X X X X > X y y y y X » X / y 

INFLT TATA 


0,00000 

C. OOOftp 

,12FP(} 

1 . CftOOO 

ncnon 

-3.46800 

3.2927ft 

3 

2 


Fft.ocoftr 

fu, or flu'll 

6 0, Oft 00 ft 


t5.74 3'5 0 

-3.00000 

1.50t-rT 

-.91<iP(i 

4 , r<(} fiO n 

r . ocftfto 

. 66 'iftft 

C. 00000 

1 . 0000ft 

i.OPnro 

.U63P 

* 23?7 7 

-.02532 

-,05064 

z.onooo 

6?. (iftOOO 

0,00000 





c 

3 

*? 

4 

4 

4 


e 

3 

4 





c 


2 

c 





-.P2760 

O.POOCO 

-1.96800 

-,6661ft 

2 .20000 


-I. <56000 

-.0681ft 

2.20000 

-] .96PftC 

-.69210 

3. 5 1000 


-1.96fi00 

-.H9210 

3,51000 

-1.96600 

-.03960 

6.09000 


-1.96000 

-.93960 

6.09000 

-1.96F0C 

-1.04290 

11.70000 


-1,96600 

•^1,04290 

11.70000 

-1.9680ft 

-1.16800 

18.50000 


-,F2760 

2,30850 

0.00000 

-.86810 

2.15670 

2 • 20n0ft 


-.F6F10 

2.15670 

2.?cor,n 

-.89?ir 

2,06650 

3.51000 


-,P9210 

2.06650 

3.51000 

-,9296( 

1 ,“«6<^f’ 

6,09000 


-.93960 

1.88850 

6.09000 

-l.ft4290 

1.5012ft 

11.70000 


-1.04?6C 

1.50120 

11.70000 

-l.]6F0f 

1 . 0320r 

18.5n0('f» 


2.30P5C 

3.73400 

o.oonco 

2,15670 

3.5:-!l6 0 

2 . 2 0 (; 0 0 


2,15670 

3.53160 

2,20000 

2.06650 

3 . 41 14 ft 

3.5100ft 


2,06660 

3.4114ft 

3.51000 

1 .66850 

3. 174P0 

6. 09 00(1 


1.6665C 

3.17400 

6 . 04 rf, (. 

1 . 5 <■ 1 2 f 

2.6 67-1 

1 1 . 7 


1.501PO 

2.65760 

il.7noco 

1 .03200 

2,03200 

18.50000 


A 

7 

2 


?. 

t 


-l,Of POG 

-.P9210 

3.51CC0 

o.nonno 




-1 .96P0D 

-.89210 

3.bloro 

.645FG 




-1.9epno 

-.93960 

6.09 00 0 

,645Pft 




~1.96F.0P 

-.93960 

6 ,09000 

ft. CO 00 c 




-.69210 

2.06650 

3,51000 

0 . 0 0 0 ft ft 




~.P9?10 

2.06650 

3.5100ft 

.645P0 




-.93960 

1 .PPPBO 

6,C9onO 

.64500 




-.93960 

1 , PF65 0 

6.09000 

O.OftftOft 




2.0665C 

3.41 140 

3. <"1000 

ft, Oftonc 




2,06650 

3.41 14ft 

2.51C0O 

.6 4^=80 




,, l.PPFBO 
i.paopo 

3.17400 

6.r9pr>c 

.645F0 




3.17400 

6,09000 

0 , 0 0 n n f 




2.41 14C 

8,41140 

3.5l0ft0 

ft.occGr 






6.41140 

3 . 5 1 0 n 0 




5.17400 

P.17400 

6.0*^ (10 0 

p 64 0 



5.17400 

6.17400 

6. (19000 

fi, oonor 




P9744E402 


Cf:FF= ,465 3()E + ni 

LPfthFL= =?] 

oP4m:l= 

96 last 

= 16 7 1 Tf*T4L = ?6? 


VCBTEX FLFMFhT PKDPCIM crrPDINATt F= 



XI 

X? 

Y1 

Y2 

n 

y? 

-l.flOnQc 

-1 .80396 

0 . 0 f’ c 0 n 

1 . U i; r 

0 , n r 0 4 r. 

C . CO (1(10 


-1 .01189 

0. oorno 

1 .lOOf'O 

(1,0000 0 

0 ,00000 

~l.fc05'5e 

-1.F069? 

1 .incnn 

2.20000 

0,00000 

r .00000 

-l.niipc 

“1. 02916 

1.10000 

2 .20000 

0 . 0 0 0 0 0 

0.00000 

i\i 

u 

» 
r— 1 

1 

-1 .Hiofp 

r .pnof.o 

2 .65=00 

0 . 0 0 0 0 (J 

0.00000 

“1.0591 P 

-1.03942 

2.20000 

2 . - 9 c 0 0 

0 . f 1 0 n n Cl 

o.onooo 

-1 .eo^ift 

-1 , cl 044 

2,65500 

5.51000 

O.OiJCC'C 

fl , 000 0 (’ 

“1 . 0394? 

“1,04966 

2.65500 

3.51000 

0, (10 no 0 

0:, n oijoo 

-1.P1044 

“1.P1P59 

3.5:iO(JC 

4 . 3 0 f- 3 i 

0 . n n 0 0 0 

0 . 0 0 0 no 

-1.0496P 

“1.0621& 

3.51000 

4.30634 

o.oonoo 

0 . 00000 

-l.PlgFiS 

“1 ,8152'^ 

4.30634 

5.29.36 6 

0. 00000 

n . 00000 

“l*tJ65]£ 

-J .07769 

4.30634 

5n2936f 

0. 00 0(10 

c. Qoroo 

-l.P19?!= 

-1.P1739 

5.29366 

6 . 09 0''0 

0 . oo pni; 

0. 00000 

-1.077^9 

-1.09021 

5,29366 

6,06000 

0.00000 

0.00000 

-1.F1739 

“1.82206 

6.09 00 0 

7.62157 

n.o 0000 

(1 . 0 0 0 0 0 

-1.09051 

“1.11742 

6.09000 

7,82157 

0 , 0 0 0 0 0 

0,00000 

-l.e220f 

“1.62785 

7.82157 

9.96643 

0,00000 

0.00000 

-1.11742 

-1,15116 

7.82157 

9.96643 

o.nonoo 

Q . 00000 

-1.P27FF 

-1.F325? 

9.96843 

11.70000 

o.nonoo 

o.onooo 

-1 .1 = 11X 

-1.17638 

9.96843 

1 1 . 70 0(10 

0.00000 

C. OOQOO 

-1 .H3252 

-1.83618 

11.70000 

1 3.79668 

O.OOflOO 

0.00000 

-1.17P3i- 

-1.21 134 

11.70000 

13.79PC6 

0 , n n 0 0 {' 

0 . nooon 

-l,d3Pip 

-1.64519 

13.796F8 

16.40112 

0 . nnoon 

o.onooo 

-1.21134 

“1,25220 

13.79666 

16.40)1? 

0.00000 

C, 0 0 000 

-1 .84519 

-1.65015 

16,40] 12 

1^-. 24119 

n.oooon 

f . 0 0 00 0 

-1.2b52(. 

“1.2H09 

] 6 , 4 0 1 1 2 

1 2 ‘. ] 1 

(. . c 1 0 r Q 

r. 4 000C 

-.61752 

-.64150 

0.00 0('0 

1 ,1 oono 

0,00000 

0 n 0 0 0 0 

,7404? 

.69237 

C, 00000 

1 .10000 

OaOOOOO 

0 . ODOO 0 

2.0904? 

2.02625 

0.00000 

1 .loooc 

o.finono 

0.00000 

-.64150 

-.66546 

i.if.fcn 

F , 2 0 0 c 0 

0, 00('00 

0 . oocoo 

.69?37 

.64430 

1.10000 

2.20000 

n . 0 0 0 0 0 

0 . no 000 

5.026P5 

1.95406 

1 . 1 (1 c no 

2 . r 0 n 0 0 

0.04000 

n , 0 0 G 0 0 

~ a P,6S4f 

-.67969 

2.20000 

r.fi'^500 

0,00000 

n . 0 0 0 D 0 

,644or 

.61575 

2,20000 

2,85500 

0 , (1 (1 0 0 0 

c . noono 

1 ,95406 

1.91119 

2.20000 

2.65=00 

o.oonoo 

0.00000 

-,679-f,c 

-.69391 

?,P'=5op 

3 . = 1 0 0 0 

0,00001) 

0 . Qooon 

,61 ^=7 5 

.50720 

2.65500 

2.51 nOQ 

0 . 0 0 (1 0 0 

o.onooo 

1.9111S 

1,66*'31 

2,65500 

3.51000 

0 . 0 0 0 fl 0 

0 . 0 0 0 (; 0 

-.69391 

-.71127 

3.51 000 

4,30634 

0 . (? 0 0 0 (1 

D . 0 0 n n () 

.587P0 

.55240 

3 . 5 1 r ii n 

4 

0,00 on n 

c.cnoon 


?v .V tti r\i e*J V [*l m f\\ 1*1 -VI (J M 


l.fl6P31 l.fl607 
“,71127 -,73?7q 

i.iiun? i.7^i:-!(; 

-.73279 

. 509?5 ,4764'^ 

1-751’c 

-.75015 -.7/1751 

.47445 .35(174 

1.65505 1.5M536 

-.76751 -.?347? 

.39574 .30466 

1.58536 1.44445 

-.P347? -.67248 

.304«6 .??515 

1,44445 1.3307P 

-.87246 151821 

,P25l«= . 13743 

1.3307P 1,19307 

-.91P21 -,9749c 

.13745 .0237? 

1.153G7 1.02234 

-.9749r -1.01495 

,02372 -.05665 

1.02234 .50161 

.51726 2,43765 

.52524 3.42775 

.43765 2.35805 

.42775 5.33025 

.35605 2,31075 

.33025 3.27235 

.31075 2.26346 

.27235 3,21444 

.26346 2.20563 

.21444 3.14365 

,20563 2.13436 

,14365 3.05633 

,134t8 2,07876 

.05633 2.96574 

.07676 1.95136 

.96=74 2.83219 

,95136 1.79593 

.8321<= 2,64180 
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Computer Program Listins 


The folloviiig is a listing of the 3,0U4 separate cards -which con- 
stitute the computer program. 
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o o o a o n 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


OVERLAY (USBOWB»0,0) 

PROGRAM USBOWB (INPUl , OUTPUT *TAPE5= INPUT » TAPE6=0UTPUT tTAPEl »TAPE2) USB 


aerodynamics of wing-jet interaction USB 

BY C. EDWARD LAN OF THE UNIVERSITY OF KANSAS USB 

USB 

THIS PROGRAM IS APPLICABLE TO BOTH UPPER-SURFACE-BLOWING AND 0VER-US8 
WING BLOWING CONFIGURATIONS. USB 

USB 

NOTE. ROOT AND TIP CAMBER FUNCTIONS MAY BE DEFINED AS FUNCTION USB 
SUBPROGRAMS ZCR(X) AND ZCT(X)* RESPECTIVELY. USB 

THE ARRAY DIMENSIONS OF THIS PROGRAM RESTRICT THE NUMBER OF WING USB 
VORTICES TO BE 100 MAXIMUM AND THE TOTAL WING AND JET VORTICES TO USB 
200 maximum, ALSO. CHECK THE ARRAY SIZE OF GAMMA IN SUBROUTINE USB 
•'50LUTN'' BEFORE USING THE PROGRAM. USB 

DIMENSION TITLE(13) USB 

COMMON /CODE/ KCODE USB 

COMMON /SCHEME/ C(2)fX(l0f41)»Y(l0*AU .SLOPE (15) » XL ( 2*15) ?XTT(41) ,USB 
1XLL(41) * USB 

COMMON /GEOM/ HALFSW. XCP (200) .YCPIZOO) »ZCP(200) ,XLE(50) sYLE(50) *XTUS8 
1E(50> aPSi (20) ,CH(95) ,XV(200) »YV(10 0) ,SN(8,B) ,XN(200,2) »YN(20 0,2) .ZUSB 
HN (200.2) .WIDTH (8) .YCON (25) .SWEEP (50) .HALFB.SJ (21 .8) »EX (95.2) »TX (95USB 
3.2) .set 160 .5) .SI (160.5) ,LC (3) USB 

COMMON /AERO/ AMI . AM2. B1 , B2 , CL (30 ) , CT ( 30 ) »CD (30 ) »GAM (2 . 10 0 ) USB 

COMMON /CONST/ NCS.NCW.Ml (8) .NSJ»NCJ(5) .LAST.MJWl (3.5) .KJW2(3.5) ,JUSB 
1PANEL.MJJ(5> »NW(3) .NNJ.NJP USB 

COMMON /PAPAM/ ALPT. ALPC .ALPS t CDF , 5DF, TK . TDF USB 

COMMON /JET/ PKl.XC.XJTOl) .A(31) »B(31) USB 

COMMON /ADD/ CP(IOO) .CM (30 >. BREAK ( 8) »SWP{8?15) ?GAL(30) . ISYM. VMU.VUUSB 
I, TEMP tFCR.CAMLER, CAMLET. CAMTER.CAMTET.XJ.YJ.ZJ.RJ. ALP. CREF.TWISTR USB 
COMMON /COST/ LTOTAL . LPANl . NJW ( 5 ) .LPANEL. IENTN.LPAN2.EXIT.PTIAL.TWUSB 
1IST.DF(51 ,NFP USB 

COMMON /CAMS/ ICAM.IM»XT(2s 11 ) . ZC (2. 1 1 ) . AAM ( 2, 10 ) » BBM (2? 10 ) . CCH (2. USB 
110) .DnM(2*10) USB 

DIMENSION ISPEC(6) USB 

DATA ISPEC/6»("0)/ USB 

tSPEC(4)=0 USB 

CALL SYSTEMC (115.1SPEC) USB 

PI=3, 14159265 USB 

READ (5,70) (TlTLEd) .1=1.13) USB 

WRITE (6.80) USB 

WRITE (6.70) (TITLE(I) .1=1.13) USB 

WRITE (6.80) USB 

NCON=l USB 

USB 

NUMBER OF CASES TO BE RUN. GEOMETRY CODE (=X IF GEOMETRY VARIES. USB 


IN THIS CASE. ALPHA MAY ALSO BE DIFFERENT. =0 FOR THE SAME 6E0ME- USB 
TRY BUT DIFFERENT ALPHA«»S) » AND SYMMETRY CODE (=0 FOR A CENTERED USB 
JET. ANO=l OTHERWISE) USB 

USB 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
28 0 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
40 0 
410 
420 
430 
440 
450 
460 
470 
480 


10 


20 


C 

C 

C 

C 


30 


40 

C 

50 

60 

70 

BO 

90 

100 


READ (5*60) 

write (6*60) 

CONTINUE 
WRITE (6*90) 
WRITE (6*100 
write (6*90) 
CALL overlay 
CALL overlay 

call overlay 
continue 

CALL overlay 

call overlay 

MCON=NCON*-l 
IF (NCON.GT. 
IF (NG.EQ*1) 


ICASE*NG»ISYM 

icase*ng*isym 


) NCON 

(6HUSBOWB»1,0) 

(6HUSBOWB*2»0) 

(6HUSBOWB»3*0) 

(6HUSBOWB*4*0) 

(6HUSBOWB*S*0) 

ICASE) GO TO 40 
GO TO 10 


C 

C 

C 


additional angles OF ATTACK IN DEGS. TO BE COMPUTED* TO 
BEHIND the GEOMETRY DATA DEFINED IN SUBROUTINE “GEOMTY” 

READ (5*50) ALP 
ALP=ALP»PI/180<, 

ALPS=SIN(ALP) 

ALPC=C05(ALP) 

alpt=alps/alpc 

DO 30 1=1, NCS 

XLL { I) =ALP+ (TWI5TP+TWIST«YLE { I ) /HALFB) *PI/180. 

T=XLL(I) 

XTT(I)=SIN(T)/C0S{T) 

WRITE (6,90) 

WRITE (6*100) NCON 
WRITE (6,90) 

GO TO 20 
CONTINUE 
STOP 

FORMAT (5F10.5) 

FORMAT (7(6X*I4)) 

FORMAT (13A6) 

FORMAT { 40H*^*********'*'‘******’*^**^*******nt*-&**in**iHHHHj') 
FORMAT {1H0*20X*25HXXXXXXXXXX?(X,XXXXXXXXXXXXX) 

FORMAT (1H0,25X*13HCASE NUMBER =*I2) 

END 

FUNCTION ZCR (X) 

COMMON /CAMS/ ICAM* IM, XT ( 2 * 1 1 ) , ZC {2, 1 1 ) , AAM (2* 10 > »BBM ( 2, 
110) ,DDM(2*10) 

IF (ICAM.EQ.l) 60 TO 10 

CAMBER FUNCTION FOR THE ROOT SECTION «»■»• 


USB 490 
USB 500 
USB 510 
USB 520 
USB 530 
USB 540 
USB 550 
USB 560 
USB 570 
USB 580 
USB 590 
USB 600 
USB 610 
USB 620 
USB 630 
USB 640 
BE READ INUSB 650 
USB 660 
USB 670 
USB 680 
USB 690 
USB 700 
USB 710 
USB 720 
USB 730 
USB 740 
USB 750 
USB 760 
USB 770 
USB 780 
USB 790 
USB 800 
USB 810 
USB 820 
USB 830 
USB 340 
USB 850 
USB 860 
USB 870 
USB 880 
USB 890 
USB 900- 
ZCR 10 
10) ,CCM{2*ZCR 20 
ZCR 30 
ZCR 40 
ZCR 50 
ZCR 60 
ZCR 70 



ZCR=0.0212207*(-2.*(0.5-X)«AL06(ABS(0.5-X) )'►2.»^,-X3^^ALOG{lo-X)- 

AZCR 

80 


lLOS(X)-0,5) 

ZCR 

90 


GO TO 20 

ZCR 

100 

10 

ZCR=ZCAM(l^sX) 

ZCR 

110 

20 

RFTURN 

ZCR 

120 


END 

ZCR 

130- 


function ZCT (X) 

ZCT 

10 


COMMON /CAMB/ ICAM IM t XT < 2 ♦ 1 1 ) ♦ZC{2,11) ♦AAM(2>10) »BBM(2»10) »CCM(2 

♦ ZCT 

20 


110) »ODM(2,XO) 

ZCT 

30 


IF (ICAM.EQ*!) GO TO 10 

ZCT 

40 

C 


ZCT 

50 

C 

CAMBER FUNCTION FOR THE TIP SECTION *** 

ZCT 

60 

C 


ZCT 

70 


ZCT=2,»ZCR (X) 

ZCT 

80 


GO TO 20 

ZCT 

90 

10 

ZC' =ZCAM(2 9X) 

ZCT 

100 

20 

RETURN 

ZCT 

110 


END ‘ 

ZCT 

120- 


FUNCTION ZCAM (I*X) 

ZCH 

10 


common /cams/ ICAMtIM,XT(27ll) ♦ZC(2»11) »AAM(2» 10) »BBM(2tlO) »CCH{2 

♦ ZCM 

20 


110) »DDM(2,iO) 

ZCM 

30 


K=1 

ZCM 

40 

10 

IF (X»GE,XT(I»K) .AND.X.LT.XT (I»K+1) ) 60 TO 20 

ZCM 

SO 


K=K + 1 

ZCM 

60 


IF (K.GE.IM) GO TO 30 

ZCM 

70 


GO TO 10 

ZCM 

80 

20 

SM=X~XT(I*K) 

ZCM 

90 


ZCAM=3.«-AAM(I»K)*sH«fr2 + 2,*BBH{X»K) *SM+CCH(I*K) 

ZCM 

100 


GO TO 50 

ZCM 

110 

30 

IF (X.LT.XT(I»1) ) GO TO 40 

ZCM 

120 


K=IM-1 

ZCM 

130 


GO TO 20 

ZCM 

140 

40 

K=1 

ZCM 

ISO 


GO TO 20 

ZCH 

160 

50 

RETURN 

ZCM 

170 


END 

ZCM 

180- 


SUBROUTINE VMSEQN (NCI «K» AA.AtCA) 

VSN 

10 

C 

TO SOLVE THE SIMULTANEOUS EQUATIONS BY PURCELL *»S VECTOR METHOD 

VSN 

20 


DIMENSION AA(1) » CAU) » Ad) 

VSN 

30 


NC=K*NC1 

VSN 

40 


SUMlsO, 

VSN 

so 


K1=K-1 

VSN 

60 


JJ=1 

VSN 

70 


DO 10 J=1»K1 

VSN 

80 


SUMl^sUMl+AA ( J) *A ( JJ) 

VSN 

90 

10 

JJ=JJ+NC1+1 

VSN 

100 


SUM1=SUM1+AA(K) 

VSN 

110 


no 30 I=1»NC1 

VSN 

120 


SUM2=0. 

VSN 

130 


JJ=I+1 

VSN 

140 


ifWppf»niJC^BILITY OF THE 
PAHS IS POOE 


20 


30 


^0 


50 

60 

70 


BO 


C 


Do 20 J= 1 ?K 1 

VSN 

150 

SUM2=SUM2+AA (J)*A(JJ) 

VSN 

160 

JJ=JJ+NC1+1 

VSN 

170 

KKs=K + I 

VSN 

180 

SUM2=SUM2+AA (KK) 

VSN 

190 

CA(I)=-SUM2/SUM1 

VSN 

200 

M=1 

VSN 

210 

L=0 

VSN 

220 

KNC=(K-1)»NC1 

VSN 

230 

DO 60 1=1 »NC 

VSN 

240 

IF (I.GT.KNC) GO TO 50 

VSN 

250 

MMrrtM-D^NCl + l 

VSN 

260 

IF (I.EQ.MM) GO TO 70 

VSN 

270 

KK=KK-*-l 

VSN 

280 

IL=I+L 

VSN 

290 

A(I)=CA{KK)*aASE+A(IL) 

VSN 

300 

GO TO 60 

VSN 

310 

II=I-KMC 

VSN 

320 

A ( I ) =CA (II) 

VSN 

330 

CONTINUE 

VSN 

340 

GO TO 80 

VSN 

350 

II=MM+M-1 

VSN 

360 

BASE=A(II) 

VSN 

370 

KK=0 

VSN 

3B0 

L=L + 1 

VSN 

390 

MxM+1 

VSN 

400 

on TO 40 

VSN 

410 

CnNTINUE 

VSN 

420 

RETURN 

VSN 

430 

END 

VSN 

440- 

SUBROUTINE INTE6 (F »NN» L J» IZ » I J » B , IR ) 

INT 

10 

TO MAKE REFINED INTEGRATION FOR INDUCED TANGENTIAL VELOCITIES 

INT 

20 

COMMON /GEOM/ HALFSWfXCP (200) »YCP(200) »ZCP (200) f XLE (50 ) »YLE ( 50 ) s 

XTINT 

30 

1E(50) tPSI (20) »CH(95) ♦XV(200) jYV(IOO) tSN(e,8) »XN(2G0,2) iYN(200»2) 

*ZINT 

40 

2N(200»2) f WIDTH CB) »YCON (25) , SWEEP (50) »HALF8 t S J ( 21 » 8) »EX (95»2) »TX (95INT 

50 

3»2) tSC( 160»5) ,SI (160»5) tLC (3) 

INT 

60 

PI=3, 14159265 

INT 

70 

J=LJ+1 

INT 

80 

JJ=NN*16 

INT 

9 0 

IF (NN'.GT*6) JJ=NN«B 

INT 

100 

FJ=JJ 

INT 

110 

Cl=TX{IZ»X)-EXaZ*l) 

INT 

120 

C2=TX{I7*2)-EXaZt2) 

INT 

130 

SUM=0, 

INT 

140 

DO 10 K=1»JU 

INT 

150 

XX1=EX (IZf 1) +Cl*SC(KtIR) 

INT 

160 

XX2=EX(IZ,2)+C2»SC(Kf IR) 

INT 

170 

X1=XX1-XCP(IJ) 

INT 

180 

X2=XX2-XCP (IJl 

INT 

190 

Y1=YN(J»1)-YCP(IJ) 

INT 

200 


non 


10 


c 


10 


Y2=YN(J»2)-YCP (IJ) INT 

Z1=ZN(J»1J-ZCP(IJ) INT 

Z2“ZN(J»2)~ZCP{IJ) INT 

X12=XX2-XX1 INT 

Y12=YN<J»2)-YN(J»1) INT 

712=ZN(Jt2)-ZN(Jil) INT 

YZI=Y1*Z12“Z1«Y12 INT 

XYK=X1»Y12-Y1-»X12 INT 

X7J=X1»Z12-ZH^XI2 INT 

ALB=XYKwXYK+XZJ«XZJ+B*YZI*YZI INT 

Rl=SORT(Xl*Xl+B*Yl<»Yl + B«Zl*Zn INT 

R^=S0RT(X^^^X^+B*Y2«Y?+B*^^^^Z^) INT 

UU=(X2»X12+B»Y2*Y12+8«Z2*Z12)/P2-(X1*X12+B*YI#Y12+B*Z1»Z12)/R1 INT 
SUM=SUMfUUwYZI/ALB*Sl(K»IR) INT 

F=SUM«CHaZ)/(R.*FJ) INT 

RETURN INT 

END INT 

OVERLAY {USBOWB.lfO} 

PROGRAM 6E0HTY GEO 

TO SET UP THE GEOMETRY OF THE VORTEX ELEMENTS AND CONTROL POINTS GEO 
DIMENSION XXL(5), YL{5)i XXT(5)» ZL{5)» CPCWLOl), CPSWLOl) GEO 

COMMON /CODE/ KCODE GEO 

COMMON /SCHEME/ C(^i)»xa0»41)»Ytl0»4L) ,SL0PE(15) ♦ XL ( 2 » 15 ) ♦ XTT ( 41 ) ,GEO 

1XLL(41) geo 

COMMON /GEOM/ HALFSW» XCP ( 200 ) » YCP i 20 0) »ZCP (200) s XLE (50 ) i YLE ( SO ) »XTGEO 
IE (50) »PSI(20) «CH(Q5) » XV ( 20 0 ) » YV (10 0 ) » SN ( 8 , B) , XN C 20 0 , 2) » YN ( 20 0 , 2) »ZGEO 
2M(20092) tWIDTH (8) »YCON(25) »SWEEP (50) »HALFB » S J ( 21 » 8 ) »EX (95,2) ,TX(95GEO 
3.2) fSCtl60,5 ) tSI (160»5) »LC(3) GEO 

COMMON /AERO/ AMI , AM2» B1 , B2 t CL ( 3 0 ) » CT ( 30 ) *CD ( 30 ) » GAM (2* 1 00 ) GEO 

COMMON /CONST/ NCS»NCWtHl (8) *NSJ»NCJ(5) tLASTiMJWl 0»5) »MJW2(3»5) »JGEO 
1PANEL»HJJ(5) ,NW(3) *NNJ»NJP GEO 

COMMON /PARAM/ ALPT. ALPC:* ALPS* CDF » SDF . TH » TDF GEO 

COMMON /ADD/ CP ( 100) t CM (30) .BREAK (8) »SWP(8»15) » GAL (30) » ISYM . VMU » VUGEO 
I.TEMP.FCR.CAMLER.CAMLET.CAMTER.CAMTET.XJ.YJ.ZJ.RJ. ALP.CREF.TWISTR GEO 
COMMON /COST/ LTOTAL.LPANl,NJW(5) » LPANEL » lENTN . LPAN2 1 EX IT. PTIAL . TWGEO 
1IST.DF(5) ,NFP geo 

common /CAM8/ ICAM.IM.XT(2?11) .ZC (2. 11 ) » AAM (2» 10 ) . BBM ( 2. lO ) . CCM ( 2. GEO 
llO) ,DDH(2»10) GEO 

RT=0. GEO 

write (6.520) geo 

Pl=3. 14159265 GEO 

NCS=0 geo 

KL=0 geo 

IPANEL=1 ®E0 

00 10 1-1.5 geo 

DF(I)=0<i GEO 

GEO 


MACH NUMBERS OF FREESTREAM AND JET FLOW. FREESTREAM/JET VELOCITY GEO 
RATIO. JET/FPEESTREAM TEMPERATURE RATIO, ANGLE OF ATTACK IN DEGREE,, GEO 


210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 - 

10 
20 
30 
40 
50 
60 
70 
BO 
90 
100 
110 
1^0 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
25 0 
260 
270 
280 
290 
300 
310 


oooooo no nnonnnonno onoonnoo noooo no 


20 


t«IING L.E. and T.F, X-COORDINATES AT THE JET AXIS LOCATION*** GEO 

GEO 

READ (5t470) AMI , AM2 *VMU ♦ TEMP * ALP» XEL f XET GEO 

WRITE (6»A70) AMI ,AM2»VMU*TEMPtALP*XELtXET GEO 

GEO 

NUMBER OF FLAP SECTIONS (INCLUDING THE JET SPAN) f THE NUMERICAL GEO 
ORDER OF JET SPAN AMONG THE FLAP SPAfJS AND THE CORRESPONDING FLAP GEO 
DEFLECTION ANGLES IN DEGREES *** GEO 

GEO 

READ (5*510) NFP.NJP* (OF(I) ♦I=1*NFP) GEO 

WRITE (6*510) NFP.NJP. (DF(I) *I=1*NFP) GEO 

GEO 

REFERENCE HALF WING AREA* TWIST IN DEG.* INCIDENCE OF ROOT CORD INGEO 
OEG,» X-* Y- AND Z- COORDINATES OF JET CENTER AT EXIT* AND JET GEO 
RADIUS *** GEO 

NOTE. FOR USB APPLICATIONS* YJ*ZJ AND RJ MAY BE ANY NON-ZERO VALUEGEO 
.unless the RECTANGULAR JET IS NOT ON THE SURFACE AND THE ENTRAIN-GEO 
MFNT EFFECT IS TO BE ACCOUNTED FOR. GEO 

GEO 

READ (5.470) HALFSW.TWIST* TWISTR*XJ* YJ.ZJ.RJ GEO 

WRITE (6*470) HALFSW*TWIST*TWISTR*XJ*YJ*ZJ*RJ GEO 

GEO 


TRAILINF-EDGE angle in deg.* PARTIAL-SPAN FLAP INDICATOR (=0. FOR GEO 
NO OR FULL-SPAM FLAP* AND =1. OTHERWISE)* CONFIGURATION INDICATOR GEO 
(=1. FOR USB* AND =0. FOP OWB)* L.E. CAMBER AT THE ROOT AND TIP* GEO 


AND T.E. camber at THE ROOT AND TIP *** GEO 

NOTE. FOR USB APPLICATIONS* TEAN6L MAY BE ANY VALUE • GEO 

GEO 

IF CAMBER ordinates ARE TO BE READ IN* THE L.E. AND T.E. CAMPER GEO 
SLOPES TO RE READ IN BELOW MAY BE ARBITRARY NUMBERS * GEO 

GEO 

READ (5.470) TEANGL.PTIAL*USB*CAMLER*CAMLET*CAMTER*CAMTET GEO 

WRITE (6.470) TEANGL*PTIAL*USB*CAMLER*CAMLET*CAMTER*CAMTET GEO 

IUSB=USR geo 

nFj=0, GEO 

CMU=0. GEO 

GEO 

THE FOLLOWING DATA ARE NOT NEEDED FOR OWB APPLICATIONS * GEO 

IF (lUSB.NE.l) GO TO 20 GEO 

GEO 


THRUST coefficient. JET DEFLECTION ANGLE IN DEG. AND ENTRAINMENT GEO 
CODE IF THE RECTANGULAR JET IS NOT ON THE WING SURFACE (=1. IF THEGEO 
ENTRAINMENT DUE TO AN EQUIVALENT ROUND JET IS TO BE INCLUDED* =0. GEO 


OTHERWISE) GEO 

GEO 

READ (5.470) CMU.DFJ.TNJ GEO 

WRITE (6*470) CMU.DFJ.TNJ GEO 

CONTINUE geo 

OFJ=DFJ*PI/180. GEO 


320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 


o o 


30 


40 


60 


60 


COF=DFJ 
DO 30 I=lf5 
nF(I)=OF(I)»PI/180. 

TOF=DF(NJP) 

ALP=ALP*PI/180. 

ALP5=SIN(ALP) 

ALPC“C0S(ALP) 

ALPT=Al_PS/ALPC 
DE=TEAM0U*PI/18O.+TDF 
IF (lUSR.EO.l) CDF=DFJ 
tXIT=0« 

IF tXJ.RT.XEL) EXIT=1. 

XEL=(XEL-XJ)/RJ 
XET=(XET-XJ) /RJ 
^=7J/RJ 
THsO. 

Ml <4)=0 
ITN=TNJ 
YCON(23)=TNJ 

IF (lUSB.EQ.l.AND, ITN.EQ.O) GO TO 40 

CALL ENTRN ( VMU » AM2 » Tl: HP , XM» CL) » RT ♦ XEL» XET ♦ Z» KCODE ♦ XJC) 

XEOUI = XM-a-RJ+XJ 
HttOUI = RT»RJ 
RT=REQUI 

IF (lUSB.EO.l) GO TO 40 

IF (XEL.LT,0.,AND.ZJ.GE, (2.*RJ) ) KCODE=0 
IF (ZJ.GE, (3.*RJ) ) KCODE=0 
Fl=~P9 .54Sfl<^CU*CU+33 . 737 i »CU“8 . 9 148 
IF (CU.GT. 0.6339) Fl=iO ,6 + 0 .4* { CU-0.6339} /O *3661 
IF (F1,LT.0..AND.ZJ,GE. (1,9»RJ) ) KCOOE=0 
IF (KCODE.EO.O) go to 40 
7R=PI«RT/E. 

TH=ZR 
CONTINUE 

IF (lUSB.EO.l) KCODE=l 

IF (lUSB.NE. 1. AND.KCODE.EG.1) GO TO 50 
GO TO 60 
AX=XEL<^RU 
OJX=2.’^RJ 

IF (Fl.LT.O.) F1=0. 

IF (ZJ.LT, (2,*RJ) .AND.ZJ.GE, ( 1 ,5*RJ) ) 

1 5 ^ R J ) 

IF {ZJ.LT. (1.5*RJ) ) Fl=l. 

IF (F1.6T.1.) Fl=l. 

FACT=F1 

COF=DE*FACT 

CONTINUE 

TOTAL NUMBER OF SPANWISE SECTIONS* AND THE NUMBER OF VORTEX 


Fl«Fl+(l,-rl)«(2.*RJ-ZJ)/(0 


GEO 

GEO 

GEO 

GEO 

GEO 

GEO 

GEO 

GEO 

GEO 

GEO 

GEO 

GEO 

GEO 

GEO 

GEO 

GEO 

GEO 

GEO 

GEO 


810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 


GEOIOOO 
GEOlOlO 
GE01020 
GEO1Q30 
GE01040 
GE01050 
6E01060 
GE01070 
GE01080 
GE01090 
GEOllOO 
GEOlllQ 
6EO1120. 
GE01130 
GE01140 
GE01150 
GE01160 
GE01170 
GE01180 
GE01190 
6E01200 
.GE01210 
6E01220 
GE01230 
GE01240 
GEO 1250 
GE01260 
GE01270 
GE012 0 
GEOlf ) 




c 

G 

C 

C 

70 


C 

C 

C 

C 


c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 


80 


90 

100 


110 

c 

c 

c 


STRIPS IM EACH SECTION PLUS 1 
THE NUMBER OF VORTEX STRIPS IN THE 
WITH THAT OF JET VORTEX STRIPS * 

00 70 I=lt8 
M1(I)=0 

READ (5»480) NC» ( Ml ( I ) » 1= 1 »NC) 
write (6*480) NC* (Ml (I) »I=1»NC) 


JET REGION SHOULD 8E 


the NUMERICAL 
SECTIONS 

READ (5*480) 
WRITE (6*480) 


ORDER OF FLAP AND JET SPANS AMONG THE SPANWISE 


(NJW(l) »I=1*NFP) 
(NJW (I) *I=1»NFP) 


^UME1ER OF CH0PDWI5E VORTEX ELEMENTS IN CHORDWISE SECTIONS* AND 
CAMBER CODE (=1 IF CAMBER ORDINATES ARE TO BE READ JN* =0 IF 
CAMBER FUNCTIONS ARE DEFINED BY CLOSED-FOPM EXPRESSIONS' MANUALLY 
IN SUBPROGRAMS 7CR(X) AND ZCT(X))* AND THE NUMBER OF CAMBER ORDI- 
NATES TO BE READ IN (ARBITRARY IF ICAM=0) 

NOTE. THE MAXIMUM NUMBER OF CAMBER ORDINATES ALLOWED IS 11 > 


READ (5*480) 
write (6,480) 
NCW=NW(1) 

L=1 

IF ilCAM.NE.l) 


(NW (T) ,1=1*3) ,ICAM,IM 
(NW(I) ,1=1,3) ,ICAM*IM 


GO TO 90 


IF ICAM=1, read in the X-COORDINATES AND THE CAMBER ORDINATES* 
first for the ROOT SECTION AND THEN FOR THE TIP SECTION 


(XT(I,J) ,J=1*IM) 

(ZCCI,J) ,J=1,IM) 

(IM,XT,ZC* AAM,BBM*CCM*DOM* 1*P) 


no 80 1=1*2 

READ (5*470) 

READ (5*470) 

CALL SPLINE 
CONTINUE 
CONTINUE 
LL=1 
FN=NCW 

00 110 1=1, NCW 
FI = I 

CPCWL(n=0.5*(l.-COS( [2.*FI-1,)*PI/(2.*FN) ) ) 
SN(I,L)=2.«SQRT(CPCWL(I)*(1.-CPCWL(I)) ) 
CPCWL(I)=CPCWL(I)*100. 

OOx 230 KK=1,NC 

* COORDINATES OF BREAK CHORDS BOUNDING SPANWISE SECTIONS 
READ (5*470) ( XXL ( I ) * XXT ( I ) » YL ( I ) , 1 = 1 » 2) 


GE01300 
CONSISTENTGE01310 
GEO1320 
GE01330 
GE01340 
GE01350 
GE01360 
GE01370 
GEO1380 
GE01390 
GE0140D 
GEO 1410 
GE01420 
GE01430 
GEO 1440 
GE01450 
GEO1460 
GE01470 
GE01480 
GE01490 
GE01500 
GEO1510 
GE01520 
6E01530 
GE01540 
GE01550 
GE01560 
GE01570 
GE01580 
GE01590 
GE01600 
GE01610 
GE01620 
GE01630 
GE01640 
GE01650 
GE01660 
GEO1670 
6E01680 
GE01690 
6E01700 
GEO1710 
GE01720 
6E01730 
GE01740 
GE01750 
GE01760 
GE017TO 
GE01780 



■iJRlTE {&k 470) (XXL(I) fXXT(n ♦YL(I) tl = l »2) 

IF (lUSR.EQ.l) GO TO 190 
IF tISYH.EQ.O.AND.KK.EQ.l) GO TO 120 
IF (KK,EQ, (NJW(NJP) +1) ) GO TO 130 

IF (l5YMoNE,0»ANDeKK,EQ, (NJW(NJP)-l) 5 GOTO lAO 
IF (ISYM.NE.OaAND.KK.EQ.NJW (NJP) ) GO TO 120 
GO TO 190 

12 0 XXL (H)=XXL ( 1 J -KXXL (2) -XXL (1) ) * (YL(2) -YU ( 1 ) +RT"RJ) / (YL (2) ”YL ( 1) ) 
XXT (2) =XXT (11 + (XXT (2) “XXT (1) 1 (YL (HI “YL (1) + RT-R J ) / ( YL ( 2 ) -YU (1)1 
IF (ISYM.EO.O) GO TO 150 
130 XXL(1)=XL2 
XXT(1)=XT2 
GO TO 150 

1 ^ 1-0 XXL(2)=XXL(1) + (XXL (2) -XXL (1 1 ) * (YL ( 2) -YL {1)“RT + RJ)/(YL(H1 -YL (11) 

XXT ( 2) =XXT (1 ) + (XXT (2) -XXT (1) 1 * (YL (2) -YL ( 1) -RT + RJ) / (YL (2) -YL (1)1 
150 XLH=XXL(2) 

XT2=XXT(2) 

IF (ISYH.EQ.O. ANn.KK.EQ.il 60 TO 160 

IF (ISYM.NE.O.ANO.KK.EO. {NJW(NJP1-1} 1 GO TO 160 

YL(11=YL2 

160 IF (ISYM.EQ.Ol GO TO 170 

IF (KK.EQ. (NJW (NJPI +11 1 GO TO 190 
IF (KK.EQ.NJW(NJP1 1 YL (2)=YL(21 +RT-RJ 
IF (KK.EO. (NJW(NJP1-11 ) YL(?1=YL(2)-RT-«’RJ 
GO TO 180 

170 IF (KK.EQ. 11 YL(?1=YL{21+RT-RJ 

IHO YL2=YL(21 
190 CONTINUE 
F'.( = M1 (KKl 
NSW=M1(KK1 
00 200 J=1 »NSW 
FJ = J 

CP5WL (J1 =0 d 5» ( 1,-COS { (2.*FJ-1, 1 *PI/ (H.^FMl } 1 »100. 

YCON ( Jl=0.5« (1 .-COS (FJ*PI/FM)1 
SJ { J,KK1 =SIN(FJ»PI/FN1 
200 CONTINUE 

IF (KK.EQ. NCI GO TO 210 
CPSWL(l)=0« 

CPSWL(NSW}=100. 

GO TO H20 
210 CPSWL(11=0. 

220 IF (KK.EQ.NJW (LL) 1 MJWl (L*LL) =IPANEL 
IF {KK,EQ,NJW(NJP} I LC(L)=KL+1 
LR=(L‘'1)-»NC+KK 

CALL PANEL ( XXL » YL * XXT » CPCWL-* CPSWL »NSW 9 1 PANEL » LP ANEL? KL » LR k 5WP ) 

IPANEL=LPAMEL+1 

NCS=NCS+NSW-1 

WIDTHCKK1=YL(21-YL(1) 

BREAK(KK1=YL(11 


GEO1790 

6E01800 

GEO18I0 

GE01820 

GEO1830 

GE018AO 

GEO1850 

6E01860 

GE01870 

GE01880 

GE01890 

GE01900 

GE01910 

GE01920 

GE01930 

6E019AO 

GE01950 

GE01960 

GE01970 

6EO1980 

GE01990 

GEO2D00 

GE02010 

GE02020 

GE02030 

GE02040 

GE02050 

GE02060 

GE02070 

GE02080 

GE02090 

GE02100 

GEO2110 

6E02120 

GE02130 

GE02140 

GE02150 

GE02160 

GE02170 

GEO21B0 

GEO2190 

GE02200 

GE02210 

GEO2220 

GE02230 

GE02240 

GEO2250 

GE02260 

GE02270 






230 


240 

2S0 

2^)0 

270 

?H0 


29 0 

C 

C 

C 

C 

C 

C 


IF (KK.EQ.NJW(LL) ) MJW 2 ( L » LU =LP ANEL 
IF (KK.NE.NC) GO TO 230 
HALFB=YL( 2 ) 

IF (KK.EQ,NJW(LL) ) LL=LL +1 
IF (L.EQ. 3 ) GO TO 280 

IF (L.EQ.I) lpani=lpanel 
IF (L.EQ. 2 ) LPAN 2 =LPANEL 
IF (NW ( 2 ) .FQ.O) GO TO 240 
L=L + 1 
NCW=NW(U 

IF (L.E 0 . 3 .AND.NW ( 3 ) .EQ.O) 60 TO 260 
GO TO 100 
00 250 1 = 2,3 
DO 250 J= 1 ,NFP 

^iJWl a,j)=o 

w.JW 2 (I,J )=0 
LPAN 2 =LPANFL 
'fCS=NCS «3 
GO TO 280 
no 270 1 = 1 , NFP 
•^JWl ( 3 ,I )=0 
MJW 2 ( 3 ,I)=n 
L=L -1 

NCS=NC5+NCS/2 

CONTINUE 

MCS=NCS /3 

NCVi'=NW ( 1 ) +NW C2) + NW (3) 

V'I=VMU 

IF (lUSB.EO.l) CU=VHU 

VMU=CU 

>^TJ=RJ 

ZJT=ZJ 

IF {RT.GT.ZJ,AND,KCODF,EQ.O) ZJT=RT 
IF (lUSB.EQ.l) GO TO 290 
A'^?=AMl/ (VMU*SQRT(TEMP) ) 

IF {AM2.GT,0,9) WRITE (6,560) AM2 
IF (AM2.GT,0,9) AM2=0.9 
CONTINUE 
LAST=LPANEL 


GE02280 

GE02290 

GE02300 

GE02310 

GEO2320 

GEO2330 

GE02340 

GE02350 

GE02360 

GE02370 

GE0238Q 

GE02390 

GE0240Q 

GE02410 

GE02420 

GE02430 

GE02440 

GEO2450 

GEO2460 

GE02470 

GE024BO 

GE02490 

GE02500 

GE02510 

GE02520 

6E02530 

GEO2540 

GE02550 

GE02560 

GE02570 

GE02580 

GE02590 

GE02600 

GE02610 

GE02620 

GE02630 

GE02640 

GE02650 

GE02660 


GE02670 

TOTAL NUMBER OF STREAMWISE JET SECTIONS, NUMBER OF JET CIRCUM- GE02680 
FERENTIAL STRIPS MINUS ONE FOR A NON-CENTERED JET (USE ODD NUHBERSGE0269 0 
) AND PLUS ONE FOR A CENTERED JET (USE EVEN NUMBERS), AND NUMBERS GE02700 
OF CHORDWISE JET VORTEX ELEMENTS ON EACH JET SECTION GE02710 

GEO2720 

READ (5,480) NNJvNSJ , ( NCJ ( I ) ? I =1 » NNJ ) GE02730 
WRITE (6,480) NNJ,NSJ,(NCJ(I), 1=1, NNJ) GEO2740 
IF (KCODE.EQ.O) CALL CIRCJ (ISYM,NSJ,Y) 6E02750 
IF (ISYM.EO.O) NSJJ=NSJ/2 GE02760 


■ LCDULITY OF THia 

B W<» 


I 


300 


C 

C 

C 

C 

C 


310 


320 


330 


IF {ISYM.NE.O) WSJJ={NSJ+1)/2 

NSYM^l-ISYM 

MSJ1=NSJJ-1 

FNJ=NSJJ 

CPSWU(l)aO. 

CPSWL(NSJJ)=1. 

YCON(1)=O.B»(1.-COS(PI/FNJ) ) 

^0 300 I=2*NSJ1 
FI = I 

CPSWL(I)=0.5<^(1.-COS( (2.«FI-1. )*PI/(2,*FNJ) ) ) 

YCdN(I)=0.5«-(l ,-COS(FI*PI/FNJ) ) 

Itf^TN=NC 

JC=NCS«L 

MJ1=NNJ”1 

no 400 JJ=1»NNJ 

IF (lUSB.EQ.l) GO TO 350 

THIS DATA IS NOT NEFDED FOR USB JOBS 

COORDINATES OF ROUNDING LINES OF JET SECTIONS PROJECTED ON X-Y 

plane 

HFAD (5»470) (XXL ( I) » XXT ( I ) I YL { I ) « 1 = 1 »2) 

WRITE (6,470) (XXL m ,XXT(T) ,YLCn »I=1»2) 

IF {ISYM,EQ.O) GO TO 310 

XL1=XXL(1)-(XXL(2)-XXLU) ) *CRT-RTJ)/CYL(2)-YL(1) ) 

XT1=XXT(1) -(XXT (?) -XXT (1) ) «-(RT-RTJ) / (YL (2) -YL ( 1) ) 

XL2=XXL(i)+(XXL (2)-XXL(1) )*{RT+RTJ)/(YL(2)-YL{I) ) 

XTP=XXTn) + (XXT(2)-XXT{I) ) * (RT+RTJ) / (YL (2) -YL ( 1 ) ) 

IF (ISYM,EQ.0) GO TO 320 

XXL ( 1)=XL1 

XXT(l)=XTl 

XXL(2)=XL2 

XXT(2)=XT2 

IF (ISYM.EQ.O) GO TO 330 
YL (l)=YLn)-RT+RTJ 
Yl(2)=VL(2)+RT-RTJ 
IF (KCOOE.EQ.G) go to 340 
XXL(4)=XXL(2) 

XXT(4)=XXT(2) 

YL(4)=YL(2) 

XXL(2)=XXL(1) 

XXT(2>=XXT(1) 

YL(2)=YL(1) 

XXL(3)=XXL(45 
XXT(3)=XXT (4) 

YL(3)=YL(4) 

7L(1)=0. 

ZL(2)=ZR 

ZL(3)=ZR 


GEO 2770 

GEO2780 

GE02790 

GE02800 

GE02810 

SE02820 

GEO2830 

GE02840 

GEO2850 

GE02860 

GE02B70 

GE02880 

6E02890 

GE02900 

GE02910 

GE02920 

GE02930 

GE02940 

GE02950 

GE02960 

GE02970 

GE02980 

GEO2990 

GE03000 

GE03010 

GE03020 

GE03030 

GE03040 

GE03050 

GE03060 

GE03070 

6E03080 

6E03090 

GE03100 

GE03110 

GE03120 

6E0313Q 

GE03140 

GE0315Q 

6E0316D 

GE03170 

GEO3180 

GEO3190 

GED3200 

GE03210 

6E03220 

GEO3230 

GE03240 

GE03250 


340 


C 

C 

C 

350 

3ft0 

370 


380 


39 0 


400 


7L{4)=0, GE03260 

CONTINUE GEO3270 

GO TO 370 GE03280 

GEO3290 

COORDINATES OF PREAK POINTS DEFINING RECTANGULAR JET SECTIONS FOR GE03300 
USB CONFIGURATIONS*^# GE03310 

GE03320 

00 360 I=l»4 GEO3330 

HEAD {5»470) XXL (I) »XXT(n »YL{I-) *2UI) GEO3340 

VJRITE (6»470) XXLCI) «XXT(I) tYL(I) tZL(I) GE03350 

CONTINUE GE03360 

IT=JJ GE03370 

JJ1=JJ+L GE03380 

FNCJ=NCJ(JJ) GE03390 

NJ=NCJ(JJ) GE03400 

NMJ=NJ#16 GE03410 

IP" {NJ.GT,6) NMJ=NJ#8 GEQ3420 

FNJ=MMJ GE03430 

00 380 J=ItNMJ GE03440 

FJ=J GE03450 

SC(JtJJ)=0.5*{l.“COS( {2,*FJ-1,)#PI/{2.#FNJ) ) 1 GE03460 

SI(J,JJ) =SIN ( (2.*FJ-i ,) #PI/ £2»#FNJ) ) GEO3470 

00 390 J=1*NJ GE03480 

FJ=J GE03490 

CPCWU J) =0.5#{1.-COS ( (2.*FJ-1. )#PI/(2.#FNCJ) ) ) GE03500 

SN(J,JJl)=?,*SQRT(CPCWL(J)#(l.-CPCWL{J)n GE03510 

IF (KCODE.EQ.O) CALL JSHAPE (XXLf XXT»YL»YJrZJT*RT»CPCwL» IPANFL»NJ»GE03520 

1JC»ISYM) GE03530 

IF (KCODE,EQ«U CALL RESHAP £ XXL ♦ XXT ♦ YLi ZL »CPCWL * CPSWL * IPANEL » NJ t JGE0354U 
IC^IItNSYM) 6E03550 

«JjfJJ)=LAST GE03560 

TdANEL=LA5T4-1 GE03570 

S0F=XXT(1)-XXL (1) GE03580 

IF £ IUSB.Ef).l) TH=ZL (3) -ZL £41 GE03590 

YCON £25) =ZL £4) • GE03600 

YCON £24) =IJSB GE03610 

Cfl)=CMU GE03620 

IF (KCODE.EQ.O) YC0N£25)=I. GE03630 

IF (KCODE.EC.1) CALL RECTJ £ISYMtNSJ»Y) GE03640 

CREF=HALFSW/HALFR GE03650 

WRITE (6»490) HALFSWtCREF GE03660 

JPANEL=LAST-LPANEL GE03670 

LT0TAL=L 'ST+JPANEL GE03680 

WRITE (6»530) LPAN£L»JPANEL»LAST»LT0TAL GEO3690 

IF (lUSB.EQ.l) GO TO 410 GE03700 

write (6»650) GEOSTIQ 

IF (KCODE.EQ.O) WRITE £6*670) GE03720 

IF (KC00E.E0.1) WRITE (6*680) GE03730 

IF (KCODE.EQ.l) WRITE (6*690) GE03740 

WRITE (6*650) GE03750 


WRITE (6t630) 
WRITE (6*640) 
WRITE (6*660) 
CONTINUE 
IF (ICAM.NE.1) 
WRITE (6*570) 
WRITE (6*590) 

write (6,600) 

WRITE (6,580) 
write (6*590) 

write (6*600) 

CAMLER=ZCR(0.) 
CAMTER=ZCR(1.) 
CAMLET=ZCT (0, ) 
CAMTET=ZCT(1.) 
CONTINUE 
WRITE (6,540) 
WRITE (6*610) 
WRITE (6*500) 


XEQUI 

REQUI 

VMU 


{XT(L,n ,I = l,IM) 
(2C(1*I) ,I=1,IM) 

(XT(2,I) ,1=1, IM) 
(7C(2,I) ,I=1*IM) 


(XN(I,1) ,XN(I,2) *YNCI,l) ,YN(I,Z) *ZN(I*1) ,2N(I,2) ,1 = 


(XCP(I) ,YCP(I) ,ZCP (I) ,I = l,LAST) 


(KCODE.EQ.ll GO TO 440 
(iSYMoEO.O) GO TO 430 ^ 


WRITE (6*610) 

WRITE (6*500) (XN(I,1) ,XN(I*2) *YNCI,l) ,YN(I,Z) *ZN(I* 

IfLAST) 
write (6,550) 

WRITE (6*620) 

WRITE (6,500) (XCP (I) ,YCP ( I) ,ZCP (I) ,I = 1*LAST) 

IF (KCODE.EQ.ll GO TO 440 
IF (iSYMoEO.O) GO TO 430 . 

FN?=(MSJ-1) /2+1 
NJH={NSJ“1) /?+2 
ANG=PI/(2,*FN2) 

>^AC=(SIN{3.*AMG)-SIN(ANG)/C0S {ANG) )/(l.-CnS(3.*ANG) ) 
PHI=PI/2,-ATAN (FAC) 

NJH1=NJH-1 

NJH2=NJH+1 

Y(3*2)=SIN(PHI) 

Y(4,2)=-C05(PHI) 

Y (3,NJH1)=Y (3*2) 

Y(4,NJH1)=-Y(4*2) 

Y(3,NJH2)=-Y (3*2) 

Y (4*NJH2)=Y (4,2) 

Y (3*NSJ1)=-Y (3*2) 

Y (4,NSJllf=-Y (4,2) 

GO TO 4AG 
FN2=NSJ/2 
NJH=NSJ/2 

ANG1=1.-0,5*(1.-C0S(PT/(2.*FN2) ) ) 
ANG3=l.-0.5wa.-COS{3.»PI/(2.-frFN2) ) ) 

ANG1=ATAN(SQRT ( 1 .-ANGl^^ANGl) /ANGl) 

ANG3=ATAN (SORT ( 1 .-ANG3*ANG3) /ANG3) 

FAC=(SIN(AN63)-SIN(ANG1)/C0S(ANG1) )/{l.«C0S(ANG3) ) 
PRI=PI/2,~ATAN(FAC) 

NJHl=NJH-l 

NJH2=NSJ1 


GE03760 
GE03770 
GEO3780 
GEO3790 
GE03800 
GEO3810 
GE03820 
GE03830 
GE03840 
GE03850 
GE03860 
QE03870 
GE03880 
GE03890 
6E 03900 
GEO3910 
GE03920 
GE03930 
1GE03940 
6E03950 
GE03960 
GEO3970 
GE03980 
GE03990 
GE04000 
GE04010 
GE04020 
6E04030 
GE04040 
GE04050 
GE0406Q 
6EQ4070 
6E04080 
6E04090 
GE04100 
GEO4110 
GE04120 
GE04130 
6E04140 
GE04150 
GE04160 
GE04170 
GEO4180 
GE04190 
GE04200 
GE04210 
6E04220 
GE04230 
6EO4240 
GEO4250 
GE04260 


i 


Y(3tNJHl)=sSlN(PHI) 

Y(4»NJH1)=C0S(PHI) 

Y{3»MJH2)=-Y(39NJH1) 

Y(4»NJH2)sY(4»NJHl) 

4^0 CONTINUE 
FNJ=NNJ 

DO 450 J=1»NNJ 
FJ=J 

450 PSI (J)=SIN(FJ*PI/FNJ) 

>3ETAI=S0RT(1.-AM1*AM1) 

BETA2=SQRTa.“AM2»AM2> 

Rl=BETAl*fiFTAl 
B2=8ETA2»BFTA2 
DO 460 KK=1*NCS 

XLL(KK) =ALP+ (TWISTR + TWIST^YLE <KK ) /HALFB) «PI/180 . 
T=XLL(KK) 


460 

C 

XTT(KK)= 

return 

470 

FORMAT 1 

480 

FORMAT ( 

490 

FORMAT i 

500 

FORMAT ( 

510 

FORMAT ( 

520 

FORMAT 1 

530 

FORMAT i 
1 = 13) 

540 

FORMAT 

550 

FORMAT 

560 

FORMAT 
IHIT HAS 

57 0 

FORMAT 

580 

FORMAT 

590 

FORMAT 

600 

FORMAT 

610 

FORMAT 

620 

FORMAT 

630 

FORMAT 

15) 

640 

FORMAT 

650 

FORMAT 

1) 

660 

FORMAT 

110.5) 

670 

FORMAT 

IRACTION 

6B0 

FORMAT 
IHTO THE 
PPUTATIO 

690 

FORMAT 

IT) 


GE042TO 
GEO4280 
GE04290 
GE04300 
GE04310 
GEO.4320 
GE04330 
GEO4340 
GE04350 
6EO4360 
GEO4370 
GE0438Q 
GE04390 
GE04400 
GE04410 
GE04420 
GE 04430 
GE04440 
GEO4450 
GE04460 
GEO4470 
GEO4480 
GE04490 
GE04500 
GE04510 


(8{F10,5) ) 

(8(6XpI4) ) 

(10X»8HHALF SW=*E12.5»I0X»5HCREF=»E12.5) 

{6(F10,5) ) 

(2{6X»I4) tl0X»5{F10,5) ) 

(1H0»10HINPUT DATA) 

{ IHO ♦7HLPANEL=* 13 f 3X» 7HJPANEL=» 13 » 3X» 5HLAST=» 13 » 3X » 7HLTOTALGE04520 

6EO4530 

(lH0,»36HVnRTEX ELFMENT ENDPOINT COORDINATES=) GE04540 

aHQ,26HCONTROL POINT COORDINATES=) GE04550 

(lH0»42Hii;ARNlNG. THE EQUIVALENT JET MACH NUMBER IS t FI 0 . 5 » 41GE04560 
HEFN SET TO 0.9 IN THE COMPUTATION) GE04570 

CAMBER ORDINATES FOR THE ROOT SECTION **<») GEO4580 

CAMBER ORDINATES FOR THE TIP SECTION <^**) 6EO4b90 

(/7X,3HX/C,11F10.5) GE04600 

(/7X»3HZ/C, UF10.5) GE046IO 

{/4X»2HX1^8X»2HX2,8X?2HY1 »GX»2HY2»aXt2HZl»6X»2HZ2) GE04620 

(/4X»3HXCP.7X»3HYCP,7Xi3H2CP,7Xt3HXCPf7X,3HYCP,7X,3HZCP) GE04630 
(1H0»46HTHE EQUIVALENT JET PROPERTIES ARE EVALUATED ATtF10.GE04640 

GE04650 

(1H0»28HTHE EQUIVALENT JET RADIUS lSfF10,5) 6E04660 

(/20Xt50HXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXGE046TO 

6E04680 

(1K0»49HTHF VELOCITY RATIO OF THE EQUIVALENT JETtV0/VJ» I5»FGE04690 

GE04700 

{/20X»38HAN EQUIVALENT CIRCULAR JET IS USED FOR/2OX.23HINTEGEO4710 
COMPUTATION) 6EO4720 

(/20X»43HA RECTANGULAR JET WITH LATERAL EXTENT EQUAL/20X , 42GE04730 
EQUIVALENT JET DIAMETER IS USED FOR/20X* 23HINTERACTI0N COMGEO4740 
M\ GE04750 

JEGE04760 
6E04770 


{/20X»51HN0TE. CHECK WHETHER THE WING IS IMMERSED IN THE 


GE04780- 


ifl 

?.Q 


30 

40 


50 


60 


70 


80 

90 


END 

SUBROUTINE SPLINE CN» X ♦ Y > A » B » C » D , LM t NT) 

DIMENSION S{30)» HC12)t CA(IO), X{2*11)» Y(2,U) 
dimension A(2,10)» B(2»10)» C(2tl0)* D(2»10) 

L-LM 

DO 90 NN=1,NT 
1=1 

NI=N+1 
H(NI)=0, 

HU)=X(L»3)-X(L*2) 

H(2)=-X(L.3)+X(L.1) 

H{3)-X(U92)"X{L»1) 
no 10 K=4 jN 
H{K)=0. 

DO 20 K=1»N 
S(K)=-H(K+1)/H(1) 

NJ=N-1 
DO 70 I=2»N 
IF (I.EO.N) GO TO 30 

H(NI)=-6,«( (Y (L9l + l)-Y(Lf 1) )/{X (L» I + D-X (L»I) ) - (Y CL» n-Y{L*I 
1X(L»I)-X(L»I-1) ) ) 

GO TO 40 
H(NI)=0. 

DO 60 J=liN 
H(J)=0. 

IF (I.EO.N) GO TO 
IF { J.LT. (I-l) .OR 
H(I-l)=XIL*I)-X(L9l-l) 

H(I)=2,^^(X(L»I + 1)-X (LtI-1) ) 

H(I+l)=XtL*I+l)-X (L9 1) 

GO TO 60 

H(N“2) =X(L?N)-X (L?N-1) 

H(N-1)=-X{L»N5 +X {L»N-2) 

H{N) =X(L»N-1) -X (L»N“P) 

CONTINUE 
IT=I 

CALL VMSEQN ( NJ » I I i H , S i CA ) 

NJ=NJ-1 
CONTINUE* 

DO 80 1=1 tNl 

AtL*I)=(S(I+l)“S{I))/{6.*(X(L»I+l)“X(L*I))) 

8(LtI)=S CI)/2. SPL 420 

C(LtI) = {YCL9I+1) -Y (Lf I) ) /(X«L»I + l)“X(LfI) )-(X(L»I + l) -X(L»I> )*C2,»SSPL 430 
1 (I)+S(T+1) )/6. SPL 440 

D(L»I)=Y(L»n SPL 450 

L=L+1 SPL 460 

RETURN SPL 470 

END SPL 480 

SUBROUTINE RESHAP ( XXL t XXT » YL» ZL i CPCWL* CPSWL » IPANEL * NJ , JC , J J »NSYM) RES 10 


50 

J.GT, 


(I+l) ) GO TO 60 


SPL 
SPL 
SPL 
SPL 
SPL 
SPL 
SPL 
SPL 
SPL 
SPL 
SPL 
SPL 
SPL 
SPL 
SPL 
SPL 
SPL 
SPL 
SPL 
■1) )/(SPL 
SPL 
SPL 
SPL 
SPL 
SPL 
SPL 
. SPL 
SPL 
SPL 
SPL 
SPL 
SPL 
SPL 
SPL 
SPL 
SPL 
SPL 
SPL 
SPL 
SPL 
SPL 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

no 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 


* i 


TO DEFINE THE LOCATIONS OF VORTEX AND CONTROL POINTS ON RECT* JETSRES 

20 

DIMENSION XXL(1}» YL(1)» XXT(1)» 

ZL(1) , CPCWL(l) , CPSWL(l) 

RES 

30 

COMMON /SCHEME/ C(2)»X{l0»41)»Y(10»41) » SLOPE (15) ♦XLtSflS) ♦XTT(41) »RES 

40 

1XLL(41) 


RES 

50 

COMMON /GEOM/ HALFSW*XCP (EDO ) »YCP(200> »ZCP(200) , XLE ( 50 ) » YLE ( 50 ) ♦ 

XTRES 

60 

IE (50) »PSI (20) »CH (95) »XV (200) tYVClOO) »SN (8,8) ,XN(200»2) »YN(200»2) 

,ZRES 

70 

2N(200,2) , WIDTH (R) ,YC0N(25) , SWEEP (50) ♦ HALFB , 5J ( 21 , 8 ) , EX (95,2) ,TX(95RES 

8 0 

3,2) ,SC{ 160,5) , SI (160,5) ,LC (3) 


RES 

90 

common /const/ NCS,NCW,M1 (fl) ,NSJ 

,NCJ(5) ,LAST»MJW1{3,5) ,MJW2(3,5) 

,JRES 

100 

1PANEL,MJJ(5) ,NVi(3) ,NNJ,NJP 


RES 

110 

PI=3, 14159265 


RES 

120 

IF (NSYM.EO.O) NSJJ-(NSJ+l)/2 


RES 

130 

IF (NSYM.NE.Q) NSJJ=NSJ/2 


RES 

140 

NSJ1=NSJJ-1 


RES 

150 

DO 10 J=1,NJ 


RES 

160 

FJ=J 


RES 

170 

FNJ=NJ 


RES 

180 

PS I (J) =0.5* (1. "COS (FJ*PI/FNJ) ) 


RES 

190 

DO 170 IS=1,4 


RES 

200 

IF (NSYM.EO.l.AND.IS.EQ.l) GO TO 

170 

RES 

210 

IF (IS.EQ.4) GO TO 20 


RES 

220 

xi=IS 


RES 

230 

K2=IS+1 


RES 

240 

sn TO 30 


RES 

250 

Kl = l 


RES 

260 

K?=4 


RES 

270 

CONTINUE 


RES 

280 

SPAN=YL(K2)-YL(K1) 


RES 

290 

X0IF=XXL(K?)-XXL(K1) 


RES 

300 

[>n 40 1=1,2 


RES 

310 

II=I+K1-1 


RES 

320 

IF (1S.EQ.4, AND. I .EQ.2) 11=4 


RES 

330 

C(I)=XXT(II)-XXL(II) 


RES 

340 

no 40 J=1,NJ 


RES 

350 

XL(I,J)=XXL(II) +CPCWL(J) *C(I) 


RES 

360 

IF (ABS(SPAN) ,LE. 0.001) GO TO 70 


RES 

370 

DO 50 J=1,NJ 


RES 

380 

5L0PE(J)={XL(2, J)-XL (1, J! ) /SPAN 


RES 

390 

DO 60 K=1,NSJJ 


RES 

400 

Yt<=CPSWL (K)*SPAN 


RES 

410 

no 60 J=1,MJ 


RES 

420 

Y(J,K)=YK+YL CKl) 


RES 

43 0 

X(J,K)=XL(1,J)+5L0PE(J)* (Y (J,K)- 

YL(KD) 

RES 

440 

continue 


RES 

450 

NS=NSJ1 


RES 

460 

IF (ABS(SPAN).LE. 0.001) NS=1 


RES 

47 0 

DO 160 K=1,NS 


RES 

4B0 

YC=YCON(K) 


RES 

490 

IF (ARS(SPAN) ,LE. 0.001) YC=0.5 


RES 

500 



KK=JC+K 

CH(KK)=Ca)-(C(l)-C(2) )»YC 

IF (ABSCSPAN) .LE.n.OOl) GO TO flO 

YC1=CPSWL(K) 

YC2=CPSWL(K+1) 

GO TO 90 
YC1=0. 

YC2=1, 

CONTIKIUE 

EX (KK»1) =XXLCK1> + XDIFttYCl 
£X(KK,2)=XXL(Kl>+xniFfrYC2 
TX (KKtl) =XXT(K1) + (XXT(K2) -XXT(Kl) )<^YC1 
TX (KK»2) -XXT (K1 ) + (XXT (K2) -XXT (K1 ) ) <»YC2 
DO 160 J=l»tv!J 

M>^ANEL=(K-1)«'NJ + J-1 + IPANFL 

NDAN1=NPANEL-1 

00 130 1=1 ♦ 2 

KT1=K+I-1 

IF (ABS(BPAN) ,LE. 0.001 ) GD TO 100 
X1=X(J»KI1) 

Y1=Y(J»KI1) 

IF {J.NF.U GO TO llO 

Z7=7L(K1)+(7L(K2)-ZL(K1) J*{Yl-YL(Kl) )/SPAN 
XX=X0IF* (Yl-YL (K1 ) ) /SPAN-*-XXL (Kl) 

GO TO 120 
IZN=K1 

IF {I.F0.2) IZN=K2 
Xl=XL{Ii J) 

Y1=YL(K1) 

IF (J.ME.l) GO TO 110 
Z7=2L(IZN) 

XX=XXL(IZN) 

GO TO 120 
7Z=ZM(MPAN1»I) 

XX=XN(NPAN1»I) 

XW{NPANEL» I)=X1 
YM(NPANEL9 I)=Y1 
7N(NPANELtI)=Z7 
COMTINUE' 

XO=XOIF-«-YC + XXt (Kl) 

XCP(NPANEL)=XD+CH(KK)*PSI CJ) 

YCP (NPANEL) =YC»SPAN+YL (K1 J 
IF lABS(SPAW) ,LE. 0.001) GO TO 140 

7C=7MtNPANEL»l) + (ZNCf')PANEL.l)-ZN(NPANEL»2) )* (YCP CNPANEL) 
liin/(YN(NPANFL9 1)-YN(NPANEL*2) ) 

XC=XN (NPANEL ■> 1 ) +SLOPF ( J) * TYCP (NPANEL) -YN (NPANEL» 1 )) 

GO TO 150 

ZC=0,5*{ZN(NPANEL9l) +ZNCNPAMELtZn 
XC=0.5*(XN (NPANELcl) +XM (MPANEL»2) ) 



150 

160 

170 

C 


10 

20 

30 

40 


(XXLf YL»XXT»CPCWL»CPSWL»NSWf IPANELtLPANEL»KK»LR 


OF VORTEX AND CONTROL POINTS ON THE WING 
XXT(D* CPCWLIDt CPSWL(l) 


ZCP(NPANEL)=ZC 
XV(NPANEL)=XC 
CONTINUE 

ipanel=npanel+i 

LAST=NPANEL 
JC=KK 
CONTINUE 
RETURN 
FND 

subroutine PANEL 
INP) 

TO DEFINE THE LOCATIONS 
OTMF.NSION XXL(1)» YL ( 1 ) ■! 

OIMENSTON SWPCBilB) 

COMMON /SCHEME/ C(2) »X(10t41) ♦ Y ( 1 0 »41 )» SLOPE ( 15 1 » XL 1 2f 15 ) > XTT (41 
1XLL(41) 

COMMON /GEOM/ HALFSW*XCP (200 ) 9 YCP (200) tZCP (200) tXLE(50) »YLE(50) * 
1E(50)»PSI(20)*CH(95)»XV(200)»YV(100)»SN(8*8 )iXN( 200»2)*VN(200*2) 
2N (200» 2) » WIDTH (R) ♦ YCON (25) « SWEEP (50) » HALEB »SJ (21 t6) »£X(95»2)fTX( 
3*P) »SC(160»5) »SI (160 i5) 9LC(3) 

COMMON /CONST/ NCS^NCWf Ml (8) tNSJtNCJ (5) f LAST tMJWl (3,5) »MJW2 (3 t5) 
1PANEL»MJJ (5) ?NW (3) iNNUtNUP 
PI=3. 14159266 
NSWl=NSW-l 
DO 10 I=lt2 
C(I)=XXT(I)-XXL(I) 
no 10 j=i»Ncw 

XL (I»J) =XXL(I) +CPCWL(U)*C(I)/100, 

SPAN=YL(2)-YL(1) 

00 20 J=1,NCW 

P5I (J) =0 ,5* ( 1 .-COS (FLOAT (J) fl-P I/FLO at (NCW) ) ) 

SLOPE(J) =(XLC29J)-XL(1»J) )/SPAN 
SWP (J,LR)=ATAN (SLOPE (J) ) 

DO 30 K=1,NSW 
YK=CPSWL (K) *SPAN/1Q0 . 

DO 30 J=1(NCW 
Y (J.K) =YK + YL (1) 

X(J»K)=XL{1»J) +SL0PE(J)»(Y(J»K)-YL(1) ) 

continue 

XLL(1)=XXL (1) 

XTT(1)=XXT (1) 
no 40 I=2tNSW 

XLL (1) =XLL ( I-l ) + (XXL (2>-XXL { 1) )* (Y ( I'l )-Y { If l-l) ) /SPAN 
XTT(I)“XTT(I-1) + (XXT (2)“XXT(1) )■» (Ydf I)~Y(1»I-1) )/SPAN 
DO 60 K=1,NSW1 
KK=NCS+K 

YLE(KK)=YCON (K)*SPAN+YL(1) 

XLE(KK)=XLL(K) +(XLL(K+1)-XLL(K) )*(YLE(KK)-Y(1»K) ) / ( Y ( 1 » K+1 ) -Y ( 1 » 
1 ) 


RE51000 

RESlOlO 

RES1020 

RES1030 

RES1040 

RES1050 

RES1060 

RES1070 

RES1080' 


fSPAN 
PAN 
PAN 
PAN 
PAN 
) »PAN 
PAN 

xtpan 

»ZPAN 

95PAN. 

PAN 
» JPAN 
PAN 
PAN 
PAN 
PAN 
PAN 
PAN 
PAN 
PAN 
PAN 
PAN 
PAN 
PAN 
PAN 
PAN 
PAN 
PAN 
PAN 
PAN 
PAN 
PAN 
PAN 
PAN 
PAN 
PAN 
PAN 
PAN 
K) PAN 
PAN 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

no 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 


XTE(KK)=XTT(K) + ( XTT ( K+ 1 ) -XTT (K ) ) * ( YLE ( KK ) -Y ( 1 » K ) ) / (Y (1 tK+l ) -Y (1 

»K)PAN 

410 

1) 

PAN 

420 

CH(KK) =XTE (KK) -XLE (KK) 

PAN 

430 

EX{KK»1)=XXL (1) + (XXL t2)-XXL(l) ) «CPSWL (K) /1 0 0 • 

PAN 

440 

EX {KK»2)=XXL£D + (XXL (?)-XXL(l) ) *CPSWL ( K + 1 ) /I 00 . 

PAN 

450 

TX (KK*1)=XXT{1 ) + CXXTC2)-XXT(1) )^^CPSWL(K)/1Q0. 

PAN 

460 

TX(KK.2)=XXT(1) + (XXT t? ) -XXT ( 1 ) ) «CPSWL ( K + 1 ) /1 00 , 

PAN 

470 

TANG=(XXL(2)-XXL (1) )/SPAN 

PAN 

480 

SwfEEP (KK) =ATAN CTANG) 

PAN 

490 

DO 60 J=1 «WCW 

PAN 

500 

MPANEL=(K-U «NCW + J~1 + IPANEL 

PAN 

510 

DO 50 1=1.2 

PAN 

520 

KI1=K+I-1 

PAN 

530 

XN(NPANEL.I)=X(J.KI1) 

PAN 

540 

YM(NPANEL.I)=Y(J.KI1) 

PAN 

550 

7N(NPANEL.I)=0, 

PAN 

560 

CONTINJIJE , , 

PAN 

570 

XCP (NPAMEL) -XLE (KK ) +P5I ( J) -n-CH (KK) 

PAN 

560 

YCP(NPANJEL)=YLE(KK) 

PAN 

590 

ZCP (NPANEL) =0. 

PAN 

600 

XV (NPANEL) =XLE (KK) +CPCWL (J) «CH (KK) /lOD. 

PAN 

610 

YV (NPANEL) =YLF (KK) 

PAN 

620 

CONTINUE 

PAN 

630 

LPANEL=NPANEL 

PAN 

640 

RETURN 

PAN 

650 

FWD 

PAN 

660- 

SUBROUTINE ENTRN ( U » AM J » T. XM . CMU »RT. XEL* XET» Z» KCOOE . X JC) 

ENT 

10 

TO COMPUTE THE JET ENTRAINMENT FUNCTION 

ENT 

20 

dimension CSJ(70), SSJ(70) 

ENT 

30 

DIMENSION PUK31). PU2(31), FUlOl). FU2(31)« FU3(31). RR2(31) 

ENT 

40 

COMMON /JET/ PKl . XC. X (31) . A (31 ) f B (31 ) 

ENT 

50 

idRlTE (6.260) 

ENT 

60 

KRITE (6.270) 

ENT 

70 

PI=3, 14159265 

ENT 

80 

IK = 1 

ENT 

90 

PEJ=T 

ENT 

100 

PK1=0.01B5+0.011*U 

ENT 

110 

<CODE=0 

ENT 

120 

XVID=0.5^^(XEL+XET) 

ENT 

130 

XM=XMiO 

ENT 

140 

X0 = 0. 

ENT 

150 

90 = 1. 

ENT 

160 

F=2.«PK1*S(?PT( (l.-ll) «REJ) 

ENT 

170 

XC=0.35/F 

ENT 

180 

XJC=XC 

ENT 

190 

P1=1.~U 

ENT 

200 

UA=(l,+2.^Ml/(l,-•U) )/(l,+U/(l.“U) ) 

ENT 

210 

X(1)=XC 

ENT 

220 

nxx=(3.-»XET-XEL) /30, 

ENT 

230 


I 


72-0,35) *SQRT C (l.-U) 


S=05X*(X(?)-XC) 
5=SH + DSX-ftDXX 

M=2 


IOX=DXX 
DXX=TDX 

IF (DXX,GT«3.) GO TO 10 
IF (DXX.RE.l. ,AND,DXX.LE,3.) DXX=2.5 
IF {DXX.LT.l.) DXX=1»5 
10 CONTIMUE 

X{2)=X(1) +DXX/S. 
no 20 1=2,30 
20 X (I + 1)=X(I) +PXX 

00 30 I=l»70 
FI=I 

C5J(I)=C0S( {2.<^FI-1.)*PI/140.) 

30 5SJ{I)=SIN( (2,*FI-1.)*PI/140.) 

no 160 1=1,31 
IF (U.LE.0,01) GO TO 80 

IF (I.EQ,1.AND.ARS(T“1.) .LE.0,01) GOTO lOO 
IF (I.EQ.l) S=(2.*PK1*SQRT (REJ*n.-U) ) »XC/0, 
l^*-ALOG(UA) ) 

IF {I.F0.2) 

IF (I.GT.2) 

M = 1 

IF (I.EQ.l) 

40 roWTINUE 

Si)M=0. 

00 50 J=l»70 
SR=0.5^t-S<^n .-CSJ(J) ) 

AP1=C1 ,-lJ) * ( 1 .-EXP {-1./ (2,<^SB) ) > 

AG=ALOG( (1.+2.*U/AP1)/{1.+U/AP1) ) 

50 SUM = saM+ ( 1 . / SORT ( APl^AG) -SORT (2,<^SB/ ((l.-U)*0.6'53147ia)))*SSJ(J) 

PES = SUH«PI/7Q.*0.5*S»SQRT(U) +SORT (2.*U/ ( 1 .”U) } »S**1 a 5/1, 0 397 206 
Xl=RES+0,35 
IF (M.ME.l) GO TO 70 
XT=X1/ (2.*PK1*SQRT ( ( 1 ,-U)*REJ) } 

Pl = ( l.-U) *{ 1,-EXP (-U/ (2.*S) ) } 

Gl=ALOG( (1 ,+2,*U/Pl ) / ( l.+U/Pl ) ) 
nsX=2,^PKl*SQPT (RFJ« (1 ,-U) »P1*G1/U) 

SH=5 

IF (ABS{X(I)-XT) .LF.O.Ol) GO TO 60 

UX=X(I)-XT 

S=S+DX<^DSX 

SH=S 

GO TO 40 

60 Pl=(I.-U)i^(l,-EXP(-l./(2.<^SH) ) ) 

70 IF (ABSCT-1. ) .LE.O.Ol) GO TO 100 

XH=X1«-0.7E/(2.*PK1«SORT( (l.“U)*REJ) ) 

IF (ABS{X(I)-XH) .LE.O.Ol) GO TO 90 
AK2= (l.-U)*(l.-EXP (-!./( 2. »S> ) ) 

A62=AL0G ( a,+2.»U/AK2)/{l,4-U/AK2) ) 

USX I =2 .■R-PK 1 /0 , 72*SOPT ( RE ( 1 , -U) *AK2*AG2/U ) 


ENT 240 
ENT 250 
ENT 260 
ENT 270 
ENT 280 
ENT 290 
ENT 300 
ENT 310 
ENT 320 
ENT 330 
ENT 340 
ENT 350 
ENT 360 
ENT 370 
ENT 380 
ENT 390 
/UENT 400 
ENT 410 
ENT 420 
ENT 430 
ENT 440 
'€NT 450 
ENT 460 
ENT 470 
ENT 480 
ENT 490 
ENT 500 
ENT 510 
ENT 520 
EnT 530 
ENT 540 
ENT 550 
ENT 560 
ENT 570 
ENT 580 
ENT 590 
ENT 600 
ENT 610 
ENT 620 
ENT 630 
ENT 640 
ENT 650 
ENT 660 
ENT 670 
ENT 68C 
ENT 69 C 
ENT TOC 
ENT 71C 
ENT 72C 


R(J 


90 


100 


110 


120 


OX=X(I)-XH 
S=5+DX*DSX1 
M=M+1 
RO TO 40 

IF Cl.NF.l) SH=2*<»PKl<^SQPT(REJ)*X(I)-0,35 
IF (I.NF.l) P1={1.-U)*{1.-EXP(“1./(2.*SH) )} 
nSX=2.-»PKl-«-SORT(PEJ) 

IF (ABS(T-1* ) .LF.0.01) GO TO 100 
S=2.»PK1/0.72*SORT(RF-J)*X(I ) -0,35 

IF (I.EQ.l.AND.U.GT.O.Ol) DSX=2 .<^PK1*S0RT ( RE J* ALOG (UA ) /U ) * ( 1 - -U ) 
PlP=-2,«-Pl«-Pl/(l,-U) 

HO=l.-EXP(-l./(2,<^sn 

HOP=-2,«-HO**2/0,72 

p?=(T-l,+0.2^i•(l,-ll^^U)*AMJ•H•AMJ»T)*HO-0.^^l•PlfrAMJ^^AMJ^^T*(Pl+2.*U) 
P2P= (T-1 . + 0.2-«- ( l.-U*U) «-AMJ*AMJ«-T) *HOP-0,2«P1P*^AHJ*AMJ*T* {P1 + 2.*U) 
10.2^^P1*AMJ•B■AMJ^^T*P1P 


ENT 730 
ENT 740 
ENT 750 
ENT 760 
ENT 770 
ENT 780 
ENT 790 
ENT 800 
ENT 810 
ENT 820 
ENT 830 
ENT 840 
ENT 850 
ENT 860 
-ENT 870 
ENT 880 


PI P->P2P*0 ,R907«- (0,08901-0 ,04005*P2+0, 01792*P2*-»2-0 . 00646*P2**31 / (ENT 89 0 
ll. + l,05001^^P2) ' ENT 900 

F?p = -P2PttO,79335«- (0. 0527-0. 0 2886*P2* 0.01 478<»P2**2-0 . 0 0589^^P2*^*3 ) / ( ENT 910 
1 1 , +1 , 08R69*P2) E:NT 920 

F3P=-P2P»(0. 12857-0. 04653*P2 + 0,0 1820»P2**2-0.0 0599*P2fl•^^•3) / (1 . + 1. 02ENT 930 
127?*P2) ENT 940 

Ra TO 110 ENT 950 

P2=0. ENT 960 

p?p=0. ENT 970 

F1P=0, ENT 980 

F?p=0, ENT 990 

F3P=0, ENTIOOO 

IF (I.ER.l.AND.U.GT.Q.Ol) DSX=2.»PK1*SQRT (REJ^ALOG (UA) /U) * ( 1 ,-U) ENTlOlO 
'^lP=-2.*PlttPl/ (1 .-LI) ENT1020 

PI =0.8907* (0,1 2857 + 0.0 16 17»P2-0,00607*P2**2+0, 0019 2*P2*«^3) /( 1,+Q,8ENT103 0 
11817*P2) ENT1040 

F? = 0 , 79335* (0.0667 6+ 0.00453*P2-0,0 0204*P 2**2+ 0.0 0 075*P2**3)/ ( 1 , +0 . ENTl 050 
185716*P2) ENT1060 

F3={ 0. 21429+ 0.04061*P2-0.01249*P2**2+0, 00351 *P 2**3) /(l.+0,7a948*P2ENT 1070 
1) ENT1080 

F((=U*P1*F1 +P1*P1*F? ENT1090 

0'+Cl={PlP*Fl+Pl*FlP-U*P2P*F3“U*P2*F3P) /FU ENTllOO 

DMC2=(P1*F1-U*P2*F3)*(U*P1P*F1+U*P1*F1P+2.*P1*P1P*F2+P1*P1*F2P) / (FENTlllO 
1U*FU) ENTH20 

nMX=2,*(l.-U)*(DMCl-DMC2)*DSX/SQRT(REJ) ENT1130 

PJ2=0.5*(1 ,-U) /FU ENT1140 

RJ1=SQRT(RJ2) ENT1150 

■aIPITE (6f250) X(I)»RJ1»DMX ENT1160 

IF (IK.Gt'.I) go to 140 ENT1170 

IF (X(I).GE.XEL) GO TO 120 ENT118D 

GO TO 140 ENT1190 

IF (RJl.LT.Z) GO TO 140 ENT1200 

Xmj=X0+(Z~R0)*(X (T)-X0)/(PJ1-R0) ENT1210 


130 

UO 


150 

160 

170 


1 60 


190 

200 


IF (XEL.LT.O) GO TO 130 

IF (XMJ.LT.XET) KC0DE=1 

IK=IK+1 

GO TO 140 

XM=0.5*XET 

IF (XMJ.LE.XM) KCODE=l 

IK=IK+1 

CONTINUE 

P0=RJ1 

XO=X(I) 

P'J11I)=P1 

‘^U2(I)=P2 

FI)1(I)=F1 

FU2(I)=F2 

FU3(I)=F3 

«R2(I)=RJ2 

IF (I.EO.l) GO TO 150 

y{i) = (OMx-DMxo)/cx(i + ii-x(n ) 

ft ( I) =OMXO-B (1) »X ( I ) 

GO TO 160 

A (I)=0.145^^DMX/0.3^ 

4(I)=(DMX-A (I) )/XC 

O'^X0=DMX 

K=1 

IF (K.GT.30) GO TO 240 

IF (XM.GE.O. .AND.XM.LT.Xn SO TO 180 

IF (XM.GE.XCK] .AND.XM.LT.X (K+1) ) 60 TO JRO 

<=K + 1 

GO TO 170 

FI 1=RR2 (K) » (PUl (K J*U*FU1 (K ) +PU1 (K) «»2*FU2 (K) ) / (U*U) 

F12=RR2(K+1) *{PU1 (K+1) *UfrFUl (K + 1 ) +PU1 ( K+ 1 ) »»2»FU2 ( K+ 1 ) ) / (UnU 
F?1=RR2(K)*(PU1 (K)*FU1 {K)-U»PU2{K)*FU3(K) ) /U 
F?2=RR2(K+l)*{PLIl (K+1) <^FLI1 CK-*-l)-U*PU2(K+l)*FU3(K + l) ) /U 
IF (ABS (T-1 . ) ,LE. 0. 001 ) GO TO 190 

F31=RP2(K)*(9. *PLI1(K)/70.“PU1 {K)»FU1 {K ) ♦U*PU2 ( K) »FU3 (K ) ) /U 

F32 = RR2(K+l)*C9,ttpUl (K + 1 ) /70 .-PUl (K + 1)*FU1 {K + 1 ) +U<»PU2 (K+1 ) *FU3 {K + 

1 n /u 

xnsFii/cFai+Fai) 

X12=F12/(F22+F32) 

GO TO 200 
F31=0. 

F32=0. 

CONTINUE 
X1=X (K1 
X2=X (K+1) 

X?1=F11/(F21 + F31 ) +F31* (F 1 1 / { F21 +F3 1 ) -1 . ) /F21 
X22=F12/ (F22+F3?) +F32* (F12/ (F22+F32)-l.)/F22 
X31=2,»F21»(F21+F31) / (F11«F21-F31) 


ENT1220 
ENT1230 
ENT1240 
ENT1250 
ENT1260 
ENT1270 
ENT1280 
ENT1290 
ENT1300 
ENT1310 
ENT1320 
ENT1330 
ENT1340 
ENT1350 
ENT1360 
ENT1370 
ENT1380 
ENT1390 
ENT 140 0 
ENT1410 
ENT14H0 
ENT1430 
ENT1440 
ENT1450 
ENT1460 
ENT1470 
ENT1480 
ENT1490 
ENT1500 
ENT1510 
ENT1520 
ENT1530 
ENT1540 
ENT1550 
ENT1560 
1ENT1570 
ENT1580 
ENT1590 
ENT1600 
ENT1610 
ENT1620 
ENT1630 
ENT1640 
ENT1650 
ENT1660 
ENT1670 
ENT1680 
ENT1690 


X31=S0PT(X31) 

X3?=2.*F22*(F22+F32) /(F12-F22-F32) 

X32=SQRT{X3?) 

IF (XM.3E.0. .AND.XM.lt. XC) RO TO 210 
on TO 220 
210 X1=0. 

X2 = XC 
X22=X21 
X32=X31 
X21=l ./U 
X31=l. 

TF (ABS(T-1.) .LE. 0.001) RO TO 220 

X12=X11 

X11=1./(T*U) 

22 0 C'^U=X21+ (XM-XD-B- (X22-X21 ) /(X2-X1 ) 

i^T=X31+ (XM-Xl) * (X32-X31) / (X2-X1) 

C>^U=1./CMIJ 

IF (AflS{T-l.) .LF.n.OOl) RO TO 230 
«U = Xll + (XM-Xl) (X12-X111 / { X2-X1) 

T=l./(CMIJ*Ptn 
230 CONTINUE 
2A0 CONTINUE 
PETLIRN 
C 

21^0 FORMAT (OF 10. 5) 

2*30 FORMAT (/5X,43HTHE COMPUTED JET ENTRAINMENT ARE A«, FOLLOWS) 

270 FORMAT (/5X.4HXJFT»0X »4HPJETtSX , 5HDH/DX) 

End 

SUBROUTINE RECTJ (ISYM,NPJ,Y) 

C TO DEFINE THE UNIT NORMAL VECTORS TO THF SURFACE OF RECTANGULAR 

C JETS 

OIMBNSION Y(10*41) 

IF (ISYM.EQ.O) GO TO 10 
NSJ1=NSJ+1 
NJH={NSJ-l)/2+2 
NO TO 20 
10 NSJ1=NSJ"1 

MJH=NSJ/2 

20 00 50 I=1»NSJ1 

IF ( I.EQ.l .AND.ISYM.NE .0 ) GO TO 30 

IF (I.EQ.NJH) GO TO 40 

Y(3,I)=1. 

Y(4.I)=0. 

GO TO 50 
30 Y{3.1)=0. 

Y(4,I)=-1. 

RO TO 50 
40 Y (3. I) =0. 

Y(4»I)=1. 


ENT1700 
ENT1710 
ENT1720 
ENT1730 
ENT1740 
ENT1750 
ENT1760 
ENT1770 
ENT1780 
ENT1790 
ENTiaoo 
ENTiaiO 
ENT1820 
ENT1830 
ENT1H40 
ENT1B50 
ENT1860 
ENT1870 
EMT1680 
ENT1890 
ENT1900 
ENT1910 
ENT1920 
ENT1930 
ENT1940 
ENT1950 
ENT1960 
ENT1970 
REC 10 
REC 20 
REC 30 
REC 40 
PEC 50 
REC SO 
REC 70 
REC 80 
REC 90 
REC 100 

REC no 

REC 120 
REC 130 
REC 140 
REC 150 
REC 160 
REC 170 
REC 180 
REC 190 
REC 200 
REC 210 


50 CONTINUE 
RETURN 
END 

SUBROUTINE CIPCJ (ISYM,NSJtY) 

C TO DEFINE THE UNIT NORMAL VECTORS TO THE SURFACE OF 

DIMENSION YClOtAU 
>^I=3.14159?65 
IF (ISYM.EO.O) 60 TO 10 
N'SJ1=NSJ + 1 
NN=(NSJ-l)/3+l 
FN2=NN 
NJH=NN+1 

Y (1,1)=-SIN{PI/{2.*FN2) ) 

Y(2»1)=-C0S(PI/(?.*FN2) ) 

DO TO ?0 
10 Y(l»l)=l, 

Y{?,1)=0. 

'fSJl=NSJ-l 
EM2=NSJ/2 
NJH=NSJ/2 
20 CONTINUE 

on 50 I=ltNSJl 
K = I 
-<1 = 1 

IF (I,6T.NJH.AND.ISYM,NE.O) K=I-NJH+1 
IF (I.GT.NJH.ANDcISYM.EO.O) K=I-NJH 
FT=K 

IF (ISYM.NE. 0) ANG2= (FI-1 . ) *PI/FN2 
IF (ISYM.EO.O) ANG2=FI*PI/FN2 
YP=0.5^^(1 .-COS (ANG2) ) 

IF (ISYM.EO.O) AWG2=PI-ATAN(5QPT(1.-YP*YP)/YP) 

TI=I+1 

KK=I 

Kri=ii 

IF (I.GT.NJH) KK=II-NJH 
FII=KK 

IF (IrLE.NJH. AND. ISYM.EO.O) F11=KK+1 
A^'G1=(2,«•FII-1.)^^PI/ {2,«FN2) 

YD=0.5‘* (1, -COS (ANSI) ) 

IF (ANGl.GT.PI) YP=-YP 

IF (ISYM.EO.O) AMG1=PI-ATAN (SQRT{1.-YP*YP)/YP) 

IF (I.GT.NJH) GO TO 30 
GO TO 40 

30 AN61=-ANG1 

ANG2=-ANG2 
40 CONTINUF 

Y(1,KII)=SIN(ANG1) 

Y(2.KII)=-C0S(ANG1) 

Y(3»KI)=SIN{ANR?) 


REC 220 
REC 230 
REC 240- 
CIR 10 

CIRCULAR JETS CIR 20 
CIR 30 
CIR 40 
CIR 50 
CIR 60 
CIR 70 
CIR 80 
CIR 90 
CIR 100 
CIR 110 
CIR 120 
CIR 130 
CIR 140 
CIR 150 
CIR 160 
CIR 170 
CIR 180 
CIR 190 
CIR 200 
CIR 210 
CXR 220 
CIR 230 
CIR 240 
CIR 250 
CIR 260 
CIR 270 
CIR 280 
CIR 290 
CIR 300 
CIR 310 
CIR 320 
CIR 330 
CIR 340 
CIR 350 
CIR 360 
CIR 370 
CIR 380 
CIR 390 
CIR 400 
CIR 410 
CIR 420 
CIR 430 
CIR 440 
CIR 450 
CIR 460 


n n 


Y(4,KI)=-C0S (ANJ62) 

SO CONTINUE 
RETURN 
END 

SUBROUTINE JSHAPE ( XXL f X XT » YL i Y J » 7 J» RJ tCPCWL f IPANEL* NJ » JC» ISYM) 

TO define the locations of vortex and control points on circular 

wJETS 

DIMENSION CPCWL(l)i XXL(l)t XXT(1)» YL(l) 

common /scheme/ C(2),xa0,41) »Y(10»41) ♦SLOPEUB) » XL (2» IS) f XTT (41 
1XLL(41) 

common /GEOM/ HALFSW^ XCP (?00) fYCP(200) »ZCP(200) ♦XLE(50) »YLE (50) » 
If' (SO) »PSI (?0) tCH (95) ,XV(200) »YV(100) »SN (8,8) , XN ( 200 , 2) , YN ( 200 1 2 ) 
2N(?00,2) ,WinTH(81 ,YC0N(?5) , SWEEP ( 50 ) ,HALFH , S J ( 21 , 8 ) , EX (95,2) ,TX( 
3,2) , SC (160,5) , SI (160,5) ,l.C (3) 

COMMON /CONST/ Nrs,NCw,Ml (fi) ,NSU,NCJ(5) , LAST , M JWl ( 3 , 5 ) ,MJW2(3,5) 
1 PANFL,MJJ (5) ,NW(3) ,NNJ,NJP 
RI=3. 1415926b 
n=NSJ+l 

IF (ISYM, to, 0) n1=NSJ“1 

IF (ISYM. £0,0) ^a^=NSJ 
Nl?=Nl/2+? 

IF (ISYM, £0,0) Nl?=N5J/?-t-l 

10 1 = 1.2 

C(I) =XXT(I)-XXL (I) 

00 10 J=1,NJ 

10 XL(I,J)=XXL(I)+CPCWL(J)ttC(I) 

0<^ 20 J=1,NJ 
" J = J 
PnCJ=NJ 

PS I (J)=0.5*(1.-COS(FJ<!^PI/FNCJ) ) 

20 5LOPE(J) = (XL(2,J)"Xl( 1,J) )/(2.«-pJ) 

OO 30 K=1,N2 
yy=y(2,K) 

IF (ISYM. NE.O. AND. K,EO,l) YY=-1» 

IF (ISYM, NF.O, AND. K, FOc?) YY=-1. 

IF {K,£(}. (N12“l ) .OP.K.EO.Nl?) YY = 1, 

IP (K.EQ.N2) VY=1, 

XTT (K) =YU+RJ»YY 
DO 30 J=1,NJ 

■^0 X ( J,K)=XL(1,J)+SL0PE{ J)*(XTT{K)~YL(1) ) 

DO 120 K=1,N1 

K!\=JC+K 

L=K 

IF (K,E0,N12) L=1 

Ex (KK,l)=XXL(l) + (XXL(2)“XXL(1) ) ^^ C XTT (L) -YL ( 1 ) )/(2.»RJ) 

FX <KK,2)=XXL{l)-f- (XXL(2)-XXL(1) )*{XTT(K + l)-YL(l) )/(2.*RJ) 
TX{KK,1)=XXT(1) - (XXT(2)“XXT (1) ) ■«■ t XTT (L ) -YL ( 1 ) )/(2.«’RJ) 

TX (KK,2)=XXT(1) + (XXT(2)~XXT(1) ) * CXTT (K+1 ) -YL ( 1 ) )/{2.*RJ) 
CH(KK)=C(1)-(C(1) -C{2) )*0.5^5^a .+Y(4,K) ) 


CIR 

470 

CIR 

480 

CIR 

490 

CIR 

500- 

JSH 

10 

JSH 

20 

JSH 

30 

JSH 

40 

) , JSH 

50 

JSH 

60 

XTJSH 

TO 

fZJSH 

80 

95JSH 

90 

JSH 

100 

, JJSH 

no 

' JSH 

120 

JSH 

130 

JSH 

140 

JSH 

150 

JSH 

160 

JSH 

170 

JSH 

180 

JSH 

190 

JSH 

200 

JSH 

210 

JSH 

220 

JSH 

230 

JSH 

240 

JSH 

250 

JSH 

260 

JSH 

270 

JSH 

280 

JSH 

290 

JSH 

300 

JSH 

310 

JSH 

320 

JSH 

330 

JSH 

340 

JSH 

350 

JSH 

360 

JSH 

370 

JSH 

380 

JSH 

390 

JSH 

400 

JSH 

410 

JSH 

420 

JSH 

430 

JSH 

440 

JSH 

450 

JSH 

460 


40 

SO 


e»(j 


7(; 

SO 

«50 


100 

110 

1?0 


c 

c 


00 120 J = 1»NJ 'JSH 

'‘)PANEL= {K-1 ) o-NJ+J -1 + IPANFL 

90 i=i»? JSri 

-<I1=K+T-1 >JSH 

STGM=1« 

TP (K.EQ.M12.AMD.I.E0.1) KI1=1 JSH 

TF (ISYM.EQ.O) GO TO 40 >JSH 

IP (KI1.FQ.1 o 0R.KT1»F0.2) GO TO 60 JSH 

GO TO 50 

IF (K.EO.NIP.ANO.KII .EO. 1 ) SIG^l=-l. JSH 

CONTIMUF JSH 

TP {KIl.EO. (N12-1) .OR.KIl.EQ.Nl?) 00 TO 70 JSH 

IF (KIl.EO. M?) GO TO 70 JSH 

YY=Y(?»Kri) JSH 

77=Y(1»KI1)*SIGN JSH 

GO TO ftO JSH 

YY=-1. JSH 

77=-Y(liKIll/Y(2tKIl) JSH 

GM TO 80 JSH 

YY=1. JSH 

77=Y(1 ,KI1) /Y (2»KTl) JSH 

CONTINUE , JSH 

XM(NPANEL» I)=X (J.KII) JSH 

Y''!(MPANEL.T)“YJ+PJ<^YY JSH 

/•'i(NPANFL»n-7J+PJ»ZZ JSH 

v<=0.5*(l.+Y (4.K) ) JSH 

IF (ISYM.FO.OJ YK=?, *YK-1 . JSH 

xCP(NPANEL)=XXL( 1) + (XXL (?) -XXL U) ) *YK+PSI ( *CH(KK) JSH 

TP (ABS (YN (NPANEL<2) -YN (NPANEL* 1 ) ) .L£. 0, 0001 ) G1 TO 100 JSH 

YCP (NPANEL) =YL 1 1 ) +YK-B- CYL (21 -YL ( 1) ) JSH 

7PP (NPANEL) =7N (NPANEL » 1 1 -i- ( 7N (NPANEL* 2) -7N (NPANEl. ♦ 1) ) « ( YCP { NPANEL 1 - JSH 
lYM (WPAMEL* 1 ) ) / (YN (NPANEL* 2 1 ~YN (NPANEL * 1 1 1 JSH 

GO TO 110 JSH 

7CP (NPANFL) =7J JSH 

YCP (NPANPLl =YN (NPANEL * 1 1 JSH 

CONTINUE JSH 

XV/(NPANEL)=XXL(1) + (XXL(2) -XXL£1) )*YK + CPCWL (J)*CH(KK) JSH 

CONTINUE JSH 

jr=JC+Nl JSH 

LA5T=NPANEL JSH 

RETURN JSH 

END JSH 

OVERLAY(USROWR*?*0) 

PROGRAM JETOFF JOf 

TO SET UP THE JETOFF INFLUENCE COEFFICIENT MATRIX AND COMPUTE THE JOF 
camber TERMS JOF 

niMENSION AWdOll JOF 


CtjMMON /GEOM/ HALFSWeXCP(200l ♦YCP(200) »Z CP (2001 »XLE(50) »VLF(50) iXTJOF 
1P(50)»PGI(201 *CH{951 *XV(2001 »YV(10Q)tSN(B*B) »XN (200*21 *YN {200*21 »ZJOF 
2J (200* 2) * WIDTH (R}*YC0N(25) * SWEEP (501 *HALFH7SJ(?lt8)»EX(95'i2) *TX (95 JOF 


470 
4B0 
490 
500 
510 
520 
530 
54 0 
550 
560 
570 
5l 0 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
BOO 
810 
820 
830 
840 
850 
860 
870 
880- 

10 

20 

30 

40 

50 

60 

70 


3»?) »SC(160»5) tSl (160»5) »LC(3) 

C'^MMOM /AERO/ AH1,AM2,B1»R2»CL(30) »CT(30) ,CD(30) »GAM{ 
COMMON /CONST/ NCS »NCW t M 1 ( fl ) »NS J »NCJ (5 ) » LAST»M JWl (3 , 5 
1PANEL»MJJ(5) tNN(3) tNNJtNJP 
COMMON /ADD/ CP ( 100) »CM {30 ) »BREAK (8) »SWP (8»15) ,GAL (30 
1 i.TFMp,FCR, CAMLERf camlet tCAMTERtCAMTET»XJ»YJ»?JfRJ< alp 
common /PARAM/ ALPTtALPC»ALPS»CDF,SDF*TH»TDF 
COMMON /COST/ LT0TAL»LPAN1 iNJW (5) »LPANEL» lENTN»LPANa» 
1 IST»DF(5 ) tNFP 
‘^FWINO 01 
Jl=LPANEL+l 

h(=R1 

IC=1 

MG=NW ( 1 ) 

NO=NW(l) 

NC=IENTN 
I o = 1 

in CONTINUE 

LL=1 

IF (NW(2) .EQ.O) 00 TO 30 
IT=1+NCS 

IF (NW(3) .NF.O) on TO ?0 
ChORD=CH{U+CH(II) 

GO TO AO 

PO III-II+NCS 

ChoRO=CH ( 1 ) +CH ( I T ) +CH ( I r T ) 
on TO AO 

30 C"»ORO=CH(1) 

40 CnNTINUF 

CfiLL wing (AW»LPANEL»1 tB^LPANl »LPAN2) 
yC=(XCP{l)-XLF(IG) )/CH0RD 

CAM=7CR{XC)~(ZCRO:C)-2rCT{XC) )*YCP(1)/HALFR 
Am, (J1)=-CAM 

■^BITE (01) (AW (K) *K=li Jl) 

IJ=? 

nj=lpanel~i 

SO CALL WING (AW*LPANFLfI J»B.LPAN1»:LPAN2) 

IF (NW(2) ,FO.O) GO TO 70 
II=IG+NCS 

IF (NW(3) .NF.O) RO TO 50 
CHORD=CH(IG)+CH(IT) 

CHFL=CH(IG) 

RO TO flO 

50 iri=ir+Ncs 

CHORD=CH (16) +CH ( IT) +CH ( in ) 

CHFL=CH(IG) +CH (II) 

RO TO 80 

70 CHnRD=CH{IG) 

CHFL=CH(IG) 


JOF 80 
2»100) JOF 90 

) »MJW2 (3»5) ,JJOF 100 

JOF no 

) tlSYM^VMUfVUJOF 120 
♦ CREFnwISTR JOF 130 
JOF lAO 
EXIT,PTIAL,TWJOF IbO 
JOF 160 
JOF 170 
JOF 180 
JOF 190 
JOF 200 
JOF 210 
JOF 220 
JOF 230 
JOF 240 
JOF 250 
JOF 260 
JOF 270 
JOF 280 
JOF 290 
JOF 300 
JOF 310 
JOF 320 
JOF 330 
JOF 340 
JOF 350 
JOF 360 
JOF 370 
JOF 380 
JOF 390 
JOF 400 
JOF 410 
JOF 420 
JOF 430 
JOF 440 
JOF 450 
JOF 460 
JOF 470 
JOF 480 
JOF 490 
JOF 500 
JOF 510 
JOF 520 
JOF 530 
JOF 540 
JOF 550 
JOF 560 


ao CONTINUE 

FCR=CHFL/CHORD 

XC=(XCP (IJ)-XLE(IO) >/CHOPD 

CC)M=At3S(XC“FCR) 

FCR1=FCP-0.01 
FCRE=FCR+0.01 
C7 = 0. 

IF (ABS(l.-XC) ,LF,0,01) GO TO 90 
2C1=ZCR(XC) 

ZC2=ZCT(XC) 

C7=7C1- (ZCl-ZC?) «YCP ( I J) /HALFB 
90 continue 

IF (XC.LT.FCRl) CAM=CZ 

(COM. LT. 0.001) CAM=CZ~0,5*DF(LL) 

IF (XC. 6T.FCR2. AND. ABS (l.-XC) *GT. 0.01) CAH=-DF (LL) +CZ 
IF (ABS(l.-XC) .LF.O.OI ) CAM=-DF ( LL) +CAMTER- ( CAMThR-CAMTET) 
1 /hALFR 

IF (PTIAL. LF.O.OI, AND. XC.GT.FCPl) GO TO 140 
IF (PTIAL. GT. 0.01) GO TO 110 
100 IF (IJ.NE.M6) GO TO 140 

IF (ABS (XC~1.) .LF'.O.OI ) GO TO 120 
JK = 1 

IF (NW(3) .NF.O.AWn.IJ.GT.LPANl) JK=2 
NCM=IJ+(NCS-IG)*NW(JK) +(IG-1)*NW(JK+1) +1 
XC1=(XCP(NCM)-XLF(IG) ) /CHORD 

CAM1=ZCR { XCl ) - (ZCR (XCl } -7CT(XC1 ) ) »YCP ( IJ) /HALFB 
CAM={CAM+CAM1)/2. 

BO TO 140 

110 IP- (TJ.GE.MJWl (1»LL) .AWD.IJ.LE.MJW2(1»LL) ) GO TO 130 
IF (IJ.GE.MJWl (2iLL) .AND.IJ,LE.MJW2(2»LL) ) GO TO 140 
IF (IJ.GE.MJWl (3aL) .AND.IJ.LE.MJW2(3.LL) ) GO TO 140 
CAM=CZ 
GO TO 100 

120 CAM=CAMTER-(CAMTER~CAMTET)«-YCP(IJ)/HALFB 
GO TO 140 

130 IF (XC.GT.FCRl) GO TO 140 
GO TO 100 
140 CONTINUE 

A^(J1)=-CAM 

'JRITE (01) (AWIK) ,K=1» Jl) 

IF (IJ.GE.LPANI.ANO.IJ.LT.LPAN?) NG=NW(2) 

IF (IJ.GE.LPANZ.AND.IJ.LT.LPANEL) NG=NW(3) 

IF tIJ.EQ.MJW2(l»LL) .0R.IJ.EQ.MJW2(2»LL) ) LL=LL+1 

IF ( IJ.EQ.MJW2 (3.LL) ) LL=LL^^1 

IF (LL.GT.NFP) LL=1 

IF (IJ.LT.MG) go to 150 

IR=rG+l 

m<3=WG-(-NG 

150 IF (IJ.FQ.LPANl.nR.IJ.EO.LPANZ) IG=1 


JOF 570 
vJOF 580 
JOF 590 
JOF 600 
JOF 610 
JOF 620 
JOF 630 
JOF 640 
JOF 650 
JOF 660 
JOF 670 
JOF 680 
JOF 690 
JOF 700 
JOF 710 
*YCP(IJ)JOF 720 
JOF 730 
JOF 740 
JOF 750 
JOF 760 
JOF 770 
JOF 780 
JOF 790 
JOF 800 
JOF 810 
JOF 820 
JOF 830 
JOF 840 
JOF 850 
JOF 860 
JOF 870 
JOF 880 
JOF 890 
JOF 900 
JOF 910 
JOF 920 
JOF 930 
JOF 940 
JOF 950 
JOF 960 
JOF 970 
JOF 980 
JOF 990 
JOFIOOO 
JOFlOlO 
JOF1020 
JOF1030 
JOF1040 
JOF1050 


18 POO. 

V-' 


160 


10 


?0 


IF (IJ.EQ.LPANl.OR.IJ.EQ.LPAN?) LL=1 

TJ=IJ+1 

NJ=NJ-1 

IF (IJ.LE.LPANELi GO TO 50 
IC=IC+1 
M=B2 
I -3=1 

'4*3=NW 1 1 ) 

TF (ARS(B1-B2^ .LE.Q.OOl) GO TO 160 

IF (IC.I.E.?) GO TO 10 

CnivTlNIJE 

RETURN 


JOF1060 

JOF1070 

JOF1080 

JOF1090 

JOFllOO 

JOFlllO 

JOF1120 

JOF1130 

JOF1140 

JOF1150 

JOF1160 

JOF1170 

vIOFlieo 

JOF1190 


SUBROUTINF WING { A W« LPANFL ♦ I » PP ♦ LPANl f LP ANS) 


WNG 

10 

TO COMPUTE THE JET-OFF INFLUENCE COEFFICIENT MATRIX 


WNG 

20 

DIMENSION 6 W( 1 ) 


WNG 

30 

dimension W( 2 ) 


WNG 

AO 

common /GEOM/ HALFSW*XCP( 200 ) »YCP( 200 ) rZCP( 200 ) .XLE( 50 ) 

»YLE( 50 ) » 

xtwng 

50 

IE ( 50 ) »P 5 I t? 0 ) »CH ( 95 ) f XVI 200 ) »YV ( 100 ) »SN { 8 » 8 ) *XN ( 200 » 2 ) f 

YN( 200 » 2 ) 

*ZWNG 

60 

?N(? 00 , 2 ) , WIDTH ( 8 ) lYCON ( 25 ) tSWEFP( 50 ) tHALFR* SJ ( 21 tB) ,EX ( 95 » 2 ) »TX ( 95 WNG 

70 

3 » 2 ) »SC( 160 , 5 ) ,SI ( I 60 i 5 ) iLC ( 3 ) 


WNG 

80 

common /aero/ ami I AM 2 tBl »P 2 »CL ( 30 ) ,CT ( 30 ) »CD ( 30 ) »GAM ( 2 » 

100 ) 

WNG 

90 

COMMON /CONST/ NCS»NCW»M 1 (R) ,NSJtNCJ{ 5 ) jLASTjMJWI ( 3 * 5 ) ♦ 

MJW 2 ( 3 * 5 ) 

* JWNG 

100 

iRANELf MJ.J ( 5 ) ,NW ( 3 ) »NNJfNJP 


WNG 

110 

TZ =1 


WNG 

120 

IFF =1 


WNG 

130 

ISN =1 


WNG 

lAO 

^JL=NW( 1 ) 


WNG 

150 

NN=NW( 1 ) 


WNG 

160 

no 60 J= 1 ,LPANEL 


WNG 

170 

MT=J“IFF +1 


WNG 

180 

Fn=NL 


WNG 

190 

IF (J.GT.LPANl .AND.J.LE.LPAN 2 ) ISN =2 


WNG 

200 

IF (J.GT.LPANP.ANn.J.LE.LPANEU ISN =3 


WNG 

210 

IF (J.GE.LPANI.AND.J.LT.LPANEL) 60 TO 10 


WNG 

220 

GO TO ?0 


WNG 

230 

NL=NW( 2 )‘ 


WNG 

2 A 0 

IF (J.GE.LPANE.AND.J.LT.LPANEL) NL=NW( 3 ) 


WNG 

25 0 

continue 


WNG 

260 

X 1 =XN(J» 1 )-XCP (I) 


WNG 

270 

X?=XN(J» 2 )-XCP(I) 


WNG 

280 

Xl?=XN(Ji 2 )-XN(J»l ) 


WNG 

290 

Y 1 ?=YN(J» 2 )-YN(J» 1 ) 


WNG 

300 

on 50 11 = 1*2 


WNG 

310 

IF (ir,EO,l) 60 TO 30 


WNG 

320 

•J=l 


WNG 

330 

GO TO AO 


WNG 

3 A 0 


30 

40 


50 


60 


C 


C 


continue 

YC=(-1.)*»N*YCP{I) 

Yl=YN(Jt 1) -YC 
YP=YN(J»2) -YC 
XYK■=X1^^Y1^~Y1*X12 
P1=SQRT(X1»X1 + H^R^^Y1«•Y1 ) 

P^=S0RT(X2^^XP+RP^^Y2^^Y2) 

li] = (Xl^^^X^ + RB*Yl?^^Y^)/R2“(Xl2*Xl + HB■«•Y12■»Yl)/Rl 

U1=U1/XYK 

'J2=a.-Xl/Rl ) /YX 

tJ3=(l.-X2/R2)/Y2 

{II) = (UI + U2-U3)«^CH(I7)-h-SM (Ml » ISN) / ( 8. *FN) 
fliv'(J)=W(l)+W(2) 

IF (J .LT. MN .OR, J .EQ. LPANEL) GO TO 60 
I7=IZ+1 


WNG 350 
WNG 360 
WNG 370 
WNG 3S0 
WNG 390 
WNG 400 
WNG 410 
WNG 420 
WNG 430 
WNG 440 
WNG 450 
WNG 460 
WNG 470 
WNG 480 
WNG 490 
WNG 500 


1PT=NN+1 

nn=NN+NL 

CnMTTNME 

PMD 

OVERLAY (USROWB»3«0) 
program JETON 

TO SET UP THE JETON INFLUENCE COEFFICIENT MATRICES 
DIMENSION AW(300) 

COMMON /COOF/ KCOOF 


WNG 

WNG 

WNG 

WNG 

WNG 

WNG 

JON 

JON 

JON 

JON 


COMMON /GEOM/ HALFSWjXCP ( 2 00 ) » YCP ( 20 0 ) »ZCP (200) » XLE ( 50 ) » YLE (50 > tXTJON 
IE (50) »PSI (20) *CH (95) »XV (200) tYV(XOO) .SN (8,8) ,XN (200,2) ,YN(200,2) ,ZJON 
2N(200,2) ,WinTH(8) ,YC0N(25) , SWEEP (50) ALFB , SJ ( 21 , 8 ) ,EX (95,2) ,TX(95J0N 
3,2) ,SC(160,5) ,SI (160,5) ,LC (3) JON 

CfiMMON /AEPO/ AM1,AM2,B1,R2,CL(30) ,CT(30) ,CD(30) ,GAM(2,X00) JON 

COMMON /CONST/ NCS,NCW,Ml (8) ,NSJ,NCJ(5) ,LAST,MJWl (3,5) ,MJW2(3,5) ,JJQN 
1«ANEL,MJJ (S) ,NW (3) ,NNJ,NJP JON 

COMMON /PARAM/ ALPT,ALPC, ALPS, CDF, SDF,TH,TDF JON 

COMMON /ADD/ CP(IOO) ,CM(30) ,BRFAK(8) ,SWP (8,15) , GAL (30) , ISYM, VMU, VUJON 
1, TEMP, FCR,CAMLER,CAMLET,CAHTER,CAMTET,XJ,YJ,ZJ,RJ, ALP, CREFtTWISTR JON 
common /COST/ LT0TAL,LPAN1,NJW(5) , LPANEL, IENTN,LPAN2,EXIT»PTIAL»TWJ0N 
1 IST,OF(5) ,NFP JON 

PEWINO 02 JON 

LP1=LT0TAL+1 JON 

MJ=LPANFL+NCJ(1) JON 

MCON=LAST-t-NCJ(l) JON 

IPHI=1 JON 

JL=LAST+1 JON 

TNN=1 JON 

LM-I JON 

LNl=l JON 

J^N=1 JON 

'/•>n)C=VMU»ALPC JON 


SIO 

520 

530 

540 

550 

560" 

10 

20 

30 

40 

50 

60 

70 

80 

90 

IC'D 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 


10 


2fi 


30 

40 

SO 


fiO 


70 

BQ 


MK = 1 

T=LA5T+1 

I1=I-JPANEL 

CALL MATRIX (AW5LT0TAL»LPANEL»VMUCtI 
1LPAN1,ISYM»KC0DE«EXIT»LPAN2) 

•^'RITE (01) CAW(K) ,K=liLTOTAL) 

Kl-Z 

Nil =L TOTAL- 1 
LT=LAST+S 
V-(P=VMUC 
<J=LI 

IF (LI. GT, LAST) KJ=LI-JPANEL 
call MATRIX (AW,LTOTAL»LPANEL» VMP,LI 
lLPA(gi,ISYM,KCODF *FXIT,LPAN2) 

'J-»ITE COD { AW (K ) .K=l ,LTOTAL) 

IF (KJ.LT.MJ.OR.KJ.FO.LAST) 60 TO 20 

TPHI=TPHI+1 

»>M=MJ + MCJ ( IMN) 

CnMTIMlJE 

INN) -1 

TF (KJ.FO.MJI) RO TO 30- 

GO TO 40 

JNM=INN 

INN=INN+1 

IF (KJ.EO.MJJ(JNW) ) IPHI=1 

IF (LI.EQ.LTOTAL) GO TO 50 

GO TO 60 

CONTINUE 

IPHI=1 

MJ=LPANEL+NCJ(1) 

JMN=1 

INN=1 

CONTINUE 

<I=KI+1 

NI=NI-I 

IF (LI.EQ.LTOTAL) GO TO 70 

IF (LI. EQ. LAST) GO TO 80 

LI=LI-H 

GO TO 90 

LT=LPANEL-^1 

GO TO 90 

LI = 1 

continue 

■ JP=LI-LAST+LPANEL 
JP1=JP-1 

IF ( JP.FO.MJJ (LNl) ) LNl=LNl-fl 
IF { JPl.EQ.MJJ (LN) ) LN=LN+1 

IF (ki.le.ltotal) go to 10 

RETURN 

END 


JON 280 
JON 290 
JON 300 

MCON, MJ » IPHI» INN* LN»LN1» temp » JON 310 

JON 320 
JON 330 
JON 340 
JON 350 
JON 360 
JON 370 
JON 380 
JON 390 

MC0N*MJ»1PHI tINNiLNiLNl , TEMP* JON 400 

JON 410 
JON 420 
JON 430 
JON 440 
JON 450 
JON 460 
JON 470 
JON 480 
JON' 49 0 
JON 500 
JON 510 
JON 520 
JON 530 
JON 540 
JON 550 
JON 560 
JON 570 
JON 580 
JON 590 
JON 600 
JON 610 
JON 620 
JON 630 
JON 640 
JON 650 
JON 660 
JON 670 
JON 680 
JON 690 
JON 700 
JON 710 
JON 720 
JON 730 
JON 740 
JON 750 
JON 760 
JON 770- 


?gPROUTINE MATRIX (AW»LTOTAL»LPANEL» VMU 

,I,MC0N,MJ, IPHI ,INN,.LN,LN1 

,MTX 

10 

1TFMP,lPAN1 *ISYM,KC0DF*EXIT*LPAN2) 


HTX 

20 

TD COMPUTE THF JETON INFLUENCE COEFFICIENT MATRICES 

MTX 

30 

niMENSlON AW(1) 


MTX 

40 

lUMENSlON W(4) 


MTX 

50 

DIMENSION SV(300) 


MTX 

60 

COMMON /REOM/ HALFSWtXCP(200) »YCP(200) » 

ZCP (200) ,XLE(50) ,YLF(50) ,XTMTX 

70 

lE(EiO) tPSI (20) »CH(95) »XV(200) »YV(I00) tSNCS^B) ,XN<200»2) »YN(?00»2) » 

7 MTX 

80 

?N (200,2) , WIDTH (R) ,YC0N(25) , SWEEP (50) »HALFB, 5J (21 ,8) , EX (95,2) ,TX(9SMTX 

90 

3,?) » SC (160,5) , SI (160,5) ,LC (3) 


MTX 

100 

COMMON /SCHEME/ C ( 2 ) , X ( 1 0 , 41 ) , Y ( 1 0 ,4 1 ) , 

SLOPE (15) ,XL(2,15) ,XTT(41) 

,MTX 

no 

1XI.L(41) 


MTX 

120 

COMMON /AERO/ AMI , AM2, R1 , R2, CL (30 ) » CT { 30 ) , CD ( 3 0 ) , G AM ( 2 , 1 00 ) 

MTX 

130 

COMMON /CONST/ NCS,NCW,M1 (P) ,NSJ,NCJ (5) 

,LAST,MJW1 (3,5) ,MJW2(3,5) , 

JMTX 

140 

1PANEL,MJJ (S) ,NVJ (3) ,NMJ,NJP 


MTX 

150 

common /PARAM/ ALPT,ALPC, alps, CDF, sdf,th,tdf 

MTX 

160 

EOUIVALENCF (X(1,1) ,SV(1) ) 


MTX 

170 

01=3.14159265 


MTX 

IBO 

7JET=YC0N(?5) 


MTX 

190 

IUSR=YC0N (24) 


MTX 

200 

OFJ=CDF 


MTX 

210 

ViJT=VMll 


MTX 

220 

r-M=TEMp 


MTX 

230 

NM2=i«jNJ-l 


MTX 

240 

M1=NNJ-1 


MTX 

250 

^'2=NNJ-2 


MTX 

260 

•>n=NNJ-3 


MTX 

270 

N.JH=(NSJ + l ) /2 + 1 


MTX 

280 

IF (I5YM.EO.O) MJH=NSJ/2 


MTX 

290 

IF (TSYM.EO.O) MP=NSJ-1 


MTX 

300 

IF (ISYM.NE.O) np=nsj+i 


MTX 

310 

•'.JT=NJH-1 


HTX 

320 

T7 = l 


MTX 

330 

IFF = 1 


MTX 

340 

>IM=NW(1) 


MTX 

350 

■JM=NW(1) 


MTX 

360 

IND=1 


MTX 

370 

ISM=1 


MTX 

380 

Ll=LPA1s!EL+l 


MTX 

390 

LAST1=LAST-1 


MTX 

400 

IF (i.gt.last) go to 10 


HTX 

410 

U=I 


MTX 

420 

GO TO 20 


MTX 

430 

TJ=I-JPANEL 


MTX 

440 

CONTINUE 


MTX 

450 

DO 240 J=1,LAST 


MTX 

460 

MT=J-IFF+1 


MTX 

47 0 

FN=NW 


MTX 

480 

IF (J.GT.LPANI .AND.J.LE.LPAN2) ISN=2 


MTX 

490 


30 

40 

bO 

60 

TO 


HO 

90 


1 ^=’ { J.GT.LPAM?. AMD, J.LE.LPAMEL) 

ISN 

1=3 

MTX 

500 

IF ( J.GE.LPANl ,AND,J.LT,LPANEL) 

GO 

TO 30 

MTX 

510 

TO AO 



MTX 

520 

MM=WM ( 3 ) 



MTX 

530 

IF ( J.fiE.LPAN?.ANn,J.LT,LPANEL) 

NN= 

mi 3 ) 

MTX 

5 A 0 

COMTINUF 



MTX 

550 

IF ( J.OF.LPANFL. AMD, J.LT.MJJ (INO) ) 

NN=NCJ(IND) 

MTX 

560 

CHnPD=CH(I 7 ) 



MTX 

570 

IF (J.EO.Ll) C 50 TO 50 



MTX 

580 

O'l TO 60 



MTX 

590 

T 5 M=ISM +1 



MTX 

600 

L]=MJvJ(IMD) +1 



MTX 

610 




MTX 

620 

IF (ml.eo.lasti) eo to to 



MTX 

630 

IF (J.FQ.ML) TMn=IMD+l 



MTX 

6 A 0 

rOMTIMUF 



MTX 

650 

xi=xMjj,i)-ycP(rj) 



MTX 

660 

= 2 ) -XCP (IJ) 



MTX 

670 

X 12 =XM(J, 2 )-XM(J, 1 ) 



MTX 

680 

V 1 ?=YM { Jt 2 ) -YM ( J, 1 ) 



MTX 

690 

712 = 7 M(J, 21 - 7 MCJ,] ) 



MTX 

700 

71=7N(J, 1) -ZCP (TJ) 



MTX 

710 

72=ZN(J,2)-7CP{IJ) 



MTX 

720 

x?Ji=Xl*Z12~71«X12 



MTX 

730 

Of) 220 11 = 1,2 



MTX 

7 A 0 

IF GO TO fiO 



MTX 

750 

M = 1 



MTX 

760 

TO TO 90 



MTX 

770 

M =2 



MTX 

780 

CMMTIMUE 



MTX 

790 

YC=(-l.)*•»•^j^^•YCP(IJ) 



MTX 

BOO 

Yl=YMiJ»n-YC 



MTX 

810 

YH=YN(J, 2 ) -YC 



MTX 

820 

XYK=X 1 »YI 2 -Y 1 *X 1 ? 



MTX 

830 

Y7I=yi*712-Z1<»Y12 



MTX 

840 

ALR 1 =XYK^)XYK + XZJ-«-XZJ+H 1 *YZI*YZI 



MTX 

850 

^3 Bl=SOPT (X1»X1 + B1^^Y1*Y1+B1^^■Z1<^71) 


MTX 

860 

p?Pl=50RT (X?*X2 + B 1 *Y 2 *Y 2 + B 1 -H'Z 2 »Z 2 ) 


MTX 

870 

ll^JBl=(X^*Xl 2 + Sl*Y 2 *Y 12 + 9 lfl-Z 2 «-Z 12 ) /R 2 B 1 - {X 1 *X 12 + B 1 *Y 1 ^*■Y 12 + BI 

*Z1<^Z1^MTX 

880 

1 ) /PIRl 



MTX 

890 

RlBl = (l,-Xl/RlRn/ (Y 1 «-Y 1 + Z1*Z1) 



MTX 

900 

e?Bl=(l ,-X 2 /P?Bl) / (Y 2 FY 2 +Z 2 *Z 2 ) 



MTX 

910 

IF (I.GT.LPAMEL) go to 110 



MTX 

920 

Fl=UUBlfl-XYK/ALRl 



MTX 

930 

F 2 =-Y 2 *G 2 B 1 +Y 1 *G 1 B 1 



MTX 

940 

IF {J.GT.LPANED GO TO 100 



MTX 

950 

GO TO 200 



MTX 

960 

FT= 0 . 



MTX 

970 

F4=0 , 



MTX 

98 0 


100 


110 


1?0 


130 


l^f 0 


ibo 


160 


170 


Fl = 3 .oFl 
F■^=2,^^F2 
TO 300 
COWTINUE 

TF (J.LE.LPANEL) GO TO 130 
IF (A8S(81-R2) ,LF. 0.001) GO TO 130 
«LP3=XYKvXYK + X7Jfl-XZJ + B3*YZI«-YZI 
w] p?=SQRT {X1*X 1+R3fl-Y1*Y1+P3'^21<-‘Z1) 
^?R?=SORT (X3*X3+R?*Y?*Y3 + B2*Z3<^Z3) 
M!iB2=(X3-»-X13+B3ffY3’^Y13+B3*7?*Z13) /R2B2- (XI 
1) /R1B2 

G1R2=(1.“X1/R1B2)/(Y1*Y1+71*Z1 ) 

6?B?=( 1.-X2/P2B?)/ (Y2»Y? + Z?^»Z2) 

GO TO 130 
FLP2=ALH1 
>IIIH2={MJH1 
G?R?=G3R1 
01R?=G1B1 
COMTIMUF 

IF (I.GT.LAST) go to 160 
F13=UUR1*XZJ/AL81 
12=UUB1»XYK/AL81 
M 3=7?*G2B1~71^^G1R1 
O] 2=~Y2»G2H1 +Y1»G1B1 
IF (J.LE.LPANFU GO TO 140 
F?3=IJUR?H^X7J/AL83 
F32=UUR2<'-XYK/ALB? 

G33=73*G2R2-71<^G1P? 

G?2=-Y2-a-G2P2 + Yl«Gl R? 

GO TO IGO 
F2P=0. 

G?2=0, 

F23=0, 

G?3=0, 

Fl=-F13*Y(4.IPHn* (“1 , )«-*K' + F12-»Y (3» IPHI) 
F2=G13*Y (4. IPHI) frf-l.J^'ttN + GlP-^YO? IPHI) 
F3=-F23*Y{4.IPHT)*(-1.)**^ + F22*Y C3»IPHI) 
F4=G23'«'y (4t IPHD* (,-l . ) ^>-»M + G224Y (3» IPHI) 

IF (J.LF.LPANFU go to 190 

F 1 = F 1 F 2 . * 

F?=2.ttF? 

F3=2.»F3 

F4=2.fi-F4 

on TO 190 

FI =UUB1-»YZT7ALR1 

IF (EXIT.LF. 0,001) GO TO 170 

TF (NNJ.EQ.T) GO TO 170 

IF (IJ.GT.LPAWFL.ANn.IJ.LF.MJJ (1 ) ) VMU=1, 
IF (IJ.GT.LPANEL.ANn.IJ.LE .MJJ (1 ) ) TEMP=1. 

CnwTIMUE 


MTX 990 
MTXiOOO 
MTXIOIO 
MTX1020 
MTX1030 
MTX1040 
MTX1050 
MTX1060 
MTX1070 

^>Xl2 + H2ttYl*Y12 + b2*71*Z12HTXl08 0 

MTX1090 
MTXllOO 
MTXlllO 
MTX1120 
MTXl 130 
MTX1140 
MTXl 150 
MTX1160 
MTX1170 
MTX1180 
MTX1190 
MTX1200 
MTX1210 
MTX1220 
MTX1230 
MTX1240 
MTX1250 
MTX1260 
MTX1270 
MTX1280 
HTX1290 
MTX1300 
MTX1310 
MTX1320 
MTX1330 
MTX1340 
MTX1350 
MTX1360 
MTX1370 
MTX130O 
MTX1390 
MTX1400 
MTX1410 
MTX1420 
MTX1430 
MTX1440 
MTX1450 
MTX1460 
HTX1470 
MTX14aC 


p^=0. 

TF ( J.LE.LPANEiL} GO TO mO 
F3=UUBP*YZI/ALR2 
F4=0, 

fi=-.fi»vmu*vhu*?.«-temp 

F3=-F3*2. 

Ci(' TO 190 

IbO F1=-FI<»VMU*VMU*TFMP 
190 COMTIMUE 

POO >■) (II) = (FUF^)*CH0P^tt5^ (MI, ISN) / C8.->^FN) 

IP ( j.le.lpanfl) go to ?10 

IF (II. EQ.?) 60 TO 210 
<2=11+2 

-)(K?) = (F3 + F4)■H■CH0RD^^5^) (MI, ISN) /(P.-H-FN) 

210 COMTIMUE 
22 0 Ci^lTINUE 

IF (J.LT.MM) GO TO 230 
12=17+1 

IFF=MM+1 
M‘J=«M + WNf 
230 COMTIMUE 

IP (J.LE.LPANFL) J A=J+?tt JP ANEL 
IF ( J.GT.LPAMEL) JA=J“LPAMEL+JPAMEL 
A*' {JA)=*'{1)+W(?) 

Siy{JA)=W(l) 

IF ( J.LE.LPANELI go to 240 

ji=j-lpanel 

A'*i(Jl)=W(3) 

VMii=vnT 
TFMp=tfm 
COMTIMUE 

IF (KCODE.FQ.O) GO TO 3fa0 

IF {IlJ5P.EQ.l,AMn,7JET.GT,0.01) GO TO 340 
IF (OFJ.LE. 0.0001) GO TO 340 

IF (MMJ.EO.l .AMD.T.LE.LPAMEL) GO TO 340 

IF (NNJ.EQ.l.AND.I.GT.LPAMEL) GO TO 250 

IF (I.LE.MJJ(Nl) .OR.l.GT.LAST) GO TO 340 
250 COMTIMUE 

IF (I. GT. LAST) GO TO 340 
IF (IPHIiEQ.NJH) 60 TO 340 

IF (I5YM.ME.O,AMO,IPHI,E0.1) GO TO 340 
IF (IPHI.LT.NJH) IL=IPHI~ISYM 

IF CIPHI.GT.NJH) IL=IPHI-NJH 

REWIMD 2 

MF = IJ-MJU(M1)~(IPHI-1 ) «-MCJ (MNJ) 

fmmj=nmj 

OJSTJ=SDF 

nuX=DISTJfl'0,5*PI/FMNJ 

S7X=-(1.~VMU) 

lM=(IL-n^^NCJ(MNJ) 


MTX149U ■ 1 

MTX1500 

MTX1510 ! 

MTXI520 i 

MTX1530 

MTX1S40 

MTX1550 

MTX1560 

MTX1570 

MTXlSaO 

MTX1S90 ' ■; 

MTX1600 

MTX1610 / 

MTX1620 

MTX1630 

MTX1640 

MTX1650 

HTX1660 

MTX1670 

MTX1680 

MTK1690 

MTX1700 

MTX1710 

MTX1720 I 

MTX1730 1 

MTX1740 
MTX1750 
MTX1760 
MTX1770 
MTX1780 
MTX1790 
MTxiaoo 
HTX1810 
MTX1820 
MTX1830 
MTXI840 
MTX1850 
MTX1B60 
MTX1870 
MTX1880 
MTX1890 
MTX1900 
MTX1910 
MTX1920 
MTXI930 
MTX1940 
MTX1950 
MTX19&0 
MTX1970 
MTX1980 


CALL SKIP (IQ, JPANEL) 

00 ?90 JJ=1,MF 

•JEAD (02) (SV(K) ,K = 1,JPANFL) 

IF (JJ.EQ.MF) GO TO 260 
lUTHsDLX-ttPSI { JJ) /TH 
TO 270 

260 ':)XTH=nLX«-PSI ( JJ) *0.5/TH 
270 C'^MTINUF 

SJ'^00=S7X»DXTH 
00 280 Kl=l,JPAMEL 
Kk.sKI+JPANFL 

280 Aw(KK)=AW(KK)+PPnn*SV(Kl) 

24 0 Cf'KJTTMUF 

I'»=NCJ(NNJ)-MF+ ( (NP-l-ISYP) /2~1) «-NCJ (NMJ) 
CALL SKIP (IQ, JPAMEL) 

00 330 JJ=l,yF 

OFAD (02) CSV CK) ,K=1 , JPAMEL) 

If^ (JJ.FO.MF) GO TO 300 
OVTH=nLX<^PSI ( JJ) /TH 
GO TO 310 

300 ■>y.TH=DLX*P5I (JJ) tt0.5/TH 
310 4^?oO = FZX^^DXTH 

on 320 Kl=i,JPANFL 
«K=K1+JPAMFL 

320 A»k (KK) =AW (KK) ~ppnn*sv (K1 ) 

330 CONITINUE 
340 CONTIMDE 

IF (EXIT. LE.O. 001) GO TO 350 
IF (NWJ.EQ. 1 ) GO TO 350 

IF (IJ.GT.LPANFL.ANn.IJ.LF.MJJd)) VMU=1 , 

JF (IJ.GT.LPANEL.AND.TJ.LE.MJJd) ) TEMP = 1. 
350 COMTINUE 

3i^0 IF d.LE.LAST) GO TO 710 

IF dPHI.EG.NJH) GO TO 570 
IF (ISYM.ME.O.AMD.IPHI.EO.I) go to 570 
IF (NNJ.EQ.l) GO TO A30 
IF (IJ.GT.MJJ (Nl) ) GO TO A30 

IF (IPHI.GT.NJH.AND.ZJET.LE.O.Ol) GO TO 430 
IF (Ip’HI.GT.NJH) L1=NJH 

IF (ISYM.EQ.O, ANOdPHI.GT.NjH) L1=NJH+1 
IF (IPHI.LE.NJH) Ll=l 
. 17=1 , 

IF (NW(2) ,NE.0.AMD.NW(3) .EQ.O) NZ=2 
IF (NW (3) .NE.O) M7=3 
IF (MMJ.LE.3.AN0.NW(2) ,NF.O) IR=N2 
IF {NN|J.LE.3.ANO,MW{2).EQcO) IR=N1 
IF (NNJrGE.A.ANO.NW (3) .NE.O) 1P=N3 
IF (NNJ.EQ.4.AND.NW(3) ,EO.O) IR=N2 
no 420 NR=1,N7 

K1=MJW1 (NR,NJP) + (IPHI-Ll-ISYM) #NW(NR)-1 


MTX1990 

MTX2000 

MTX2010 

MTX2020 

MTX2030 

MTX204-1 

MTX2050 

MTX2060 

MTX2070 

MTX2080 

MTX2090 

MTX2100 

MTX2110 

MTX2120 

MTX2130 

MTX2140 

MTX2150 

MTX2160 

MTX2170 

MTX2180 

MTX2190 

MTX2200 

MTX2210 

MTX2220 

MTX2230 

MTX2240 

MTX2250 

MTX2260 

MTX2270 

MTX22B0 

MTX2290 

MTX2300 

MTX2310 

MTX2320 

MTX2330 

MTX2340 

MTX2350 

NTX2360 

MTX2370 

MTX2380 

MTX2390 

MTX2400 

MTX2410 

MTX2420 

MTX2430 

MTX2440 

MTX2450 

MTX2460 

MTX2470 

MTX2480 


K-? = LC (Ml?) +IPHI"L1-ISYM 
KNV-=f\)W ffMR) 

K1=K'1-KNW 
<?=KE-1 
'■<'? = 3 

IF (Kl.RE.O) GO TO 370 

'<1=K1+KMW 

K?=K2+1 

x(Q = 2 

370 410 NiQ=liMP 

SIJM=0, 

on 380 KK=1 ,K|mW 
KL=K1+KK 
jA=KL + 2<>JPANEL 
380 SllM = 5lJM + SV CJA) 

C4LL INTEG (PFS»KNW,K1 IR) 

TO 400 KK=1*KNW 
<L=K1+KK 
Jfl=KL+2*JPAWEL 
AA=1. 

TO 390 L=liKMW 
LL=K1+L 

IF (L.EQ.KK) go to 390 

= (XCP (IJ) -XV(LL) ) /(XV (KL)-XV(LL) ) 

390 CnNJTIMUF 

AW (JA) =AW(JA)-5UM«AA-RES«AA*VMU*VMU«-TEMP 
400 CONTINUE 
K1=K1+!<NW 
■??=K2+1 

Alo continue 

I‘^=IR+1 

420 CONTIMUF 
430 continue 

IF {KC0DE.F(1,0J GO TO 570 
IF (NW(2).EQ.0) N5TRIP=NC5 

IF (NW(2) .NE.0.ANP.NWC3) .EQ,0) NSTRIP=NCS»2 

IF (NW(3),NE.0) N5TRIP=NC5*3 

IF (IPHI pLT.NJH) IP=NJH+1 

IF (IPHI.GT.NJH) IP=ISYM+1 

IF (NNJ.EQ.l) GO TO 480 

IF ( IJ.6T.MJJ (Ml ) ) GG TO 480 

IF (NMJbEO. 2) Gn TO 490 

IF ( IJ.GT.MJJ (M2)) GO TO 490 * 

IF (NNJ.EQ.3) GO TO 470 
IP (IJ.GT.MJJ(N3)) GO TO 460 
IF (NNJ.EQ.4) GO TO 4B0 

IF CNNJ.E0-5.AMn.rJ.GT.MJJ (NNJ~4) ) GO TO 440 

Ll=NNJ-4 

I7=NSTRIP 

G'l TO 500 


MTX2490 

HTX2500 

MTX2510 

MTX2520 

MTX2B30 

MTX2540 

MTX2550 , 

MTX2560 

MTX2570 

MTX2580 

MTX2590 

MTX2600 

MTX2610 

MTX2620 

MTXP630 

MTX2640 

MTX2650 

MTX2660 

MTX2670 

MTX260O 

MTX2690 

MTX2700 

MTX2710 

MTX2720 

MTX2730 

MTX2740 

MTX2750 

MTX2760 

MTX2770 

MTX2780 

MTX2790 

MTX2800 

MTX2810 

MTX2820 

MTX2830 

MTX2840 

MTX2850 

MTX2860 

.1TXZ07O 

MTX2880 

MTX2890 

MTX2900 

MTX2910 

MTX2920 

MTX2930 

MTX2940 

MTX2950 

MTX2960 

MTX2970 

MTX2980 






rVY 0!/ Tlxi . 

irUOU 



440 H=M3 

I7=NSTflIP+NP 
TO 500 
450 Ll=N3 

I7=MSTPTP 
'iO TO 500 
460 L1=NE 

T7=NSTPIP+ (NNJ-3) *NP 
NO TO 500 
47 0 O'INTINUF. 

L1 = N2 
I7 = Ni5TPTP 
iTO TO 500 
480 l.l=NMJ 

I7 = MSTRIP+ (NNJ-1) <»NP 
40 TO 500 
4P0 Ll=Ni 

I7=N5TPIP+ {NNJ-2)*NP 
500 COMTIWiiF 
I7 = IZ^-IP 
MT=NJT 

(ISYM,NE,0) NT=NJT'1 
<‘''JW=NCJ(L1) 
on 560 KP=ltNT 
SUMl=n. 

■4iJM2=0. 

r<\=Mjj (LI) “NP-»NCJ (LI ) + ( KP- 1 ) *NCJ (LI ) + t IP-1 > «-NCJ(Ll ) 
no 510 KK=1,KNW 
<L=K1 + Km: 

kJ-KL+JPANFL 
TA=(fL-LPA'^lFL + JPANFL 
I4=kj-LAST 
miMl=5llMl+5V ( lA) 

510 SUM2=sUM 2+AW (Ifl) 

CALL IMTEG (RES»KMW,K1,IZ«IJ»B1*L1) 

IF (AB5(B1-B2) ,LF, 0.001) GO TO 520 
CALL INTEG (PFF,KMW»K1 , 17? IJ»B2tLl) 

GO TO 530 
520 -1FF=PE'5 

530 no 550 KK=1»KNW 

<l=ki+kk 

<j=kl<<-jpanel 

IA=kL-LPANEL+JPANFL 

TS-KJ-LAST 

AA = 1. 

DO 540 L=1»KNW 
LL=K1+L 

IF (L.ED.KK) 60 TO 540 

AA=AA<>-(XCP (IJ) -XV(LL) 1 /tXV (KL) ~XV(LL) ) 


MTX2990 
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MTX3010 
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MTX3120 
MTX3130 
MTX3140 
MTX3150 
MTX31bO 
MTX3170 
MTX3180 
MTX3190 
MTX3200 
MTX3210 
MTX3220 
MTX3230 
MTX3240 
MTX3250 
MTX3260 
MTX3270 
MTX3280 
MTX3290 
MTX3300 
MTX3310 
MTX3320 
MTX3330 
MTX3340 
MTX3350 
MTX3360 
MTX3370 
MTX3380 
MTX3390 
MTX340Q 
MTX3410 
MTX3420 
MIX 3 430 
MTX3440 
MTX3450 
MTX3460 
MTX3470 


54.0 CONTINUE 

A.ii ( lA) =AW { lA) -SUM1<»AA-RES*AA*VMU*\/MU*TEMP*2. 

A.«J {18) =AW (IB) -SUM2ttAA-REF*AA«2, 

550 CONTINUE 

t;^-iz+i 

560 COMTINUF 
570 CONTINUE 
5K=1, 

.IF (IPHI.GT.NJH) SK=-1. 

UI=I-LA5T+LPANEL 

K=MC0N-LAST-NCJ (LN) +LPANFL 

JNJ=NCJ(LN) 

on 590 KK=1»JNJ 

KL=K + Ki< 

KJ=1CL + JPANEL 
TA=KL«LPANEL+JPANEL 

tb=kj-last 

AA = 1. 

00 580 L=1 * JNJ 
LL=K+L 

IF (L.FQ,KK) 60 TO 5B0 

AA=AA*(XCP (JI) -XV(LL) >/{XV(KL)-XV{LU ) 

580 CONTINUE 

AW (IB)=AW{ IB) +AA-B-SK 

590 AW(IA)=AW(IA)-AA<^VMU*VMU<^TEMP*SK 

IF (loEO.MCnN.AND.I.LT.LTOTAL) MCON-MCON+NCJ (LNl ) 
IF (i<CODe.FO.O) 60 TO 680 

IF (IUS8,EQp1»AND»7JET»6T*0,01) GO TO 680 
IF (NNJ.EQ.l) 60 TO 680 
IF (IJ.GT.MJJCNl) ) GO TO 680 
IF (IPHI.LE.NJH) 60 TO 66,0 
L1=NJH 

IF (ISYM.EO.O) L1=NJH+1 
IF (NW(2) .EO.O) 60 TO 610 
IF (NW(3),EOpO) 60 to 600 
IF (IJ.GT,MJJ{N2) ) 60 TO 640 
IF nj,6T.MJJ(N3) ) GO TQ 630 
IF (NNJ.EQ.4) GO TO 620 

IF {NNJ.EQp5.AND.TJ.GT.MJJ{NNJ-4) ) GO TO 620 
60 TO 680 

600 IF (IJ.GT.MJJ{N2)) 60 TO 630 
IF (NNJ.EQ.3) GO TO 620 

IF {NNJ.EQ.4,AND»IJ,GT,MJJ(N3)) 60 TO 620 
60 TO 680 

610 IF (NNJ.EQ.2) 60 TO 620 

IF (NNJ.EQ.3.AN0.IJ,GT.MJJ(N2) ) 60 TO 620 
60 TO 680 

620 K1=MJW1 (1*NJP) + (IPHI-L1~ISYM)«-NW(1)"1 
KNW=NW(1) 

GO TO 650 


MTX3480 

MTX3490 

MTX3500 

MTX3510 

MTX3520 

MTX3530 

MTX3540 

MTX3550 

MTX3560 

MTX3570 

MTX35B0 

MTX3590 

MTX3600 

MTX3610 

MTX3620 

MTX3630 

MTX3640 

MTX365Q 

MTX3660 

MTX3670 

MTX36B0 

MTX3690 

MTX3700 

MTX3710 

MTX3720 

MTX3730 

MTX3740 

MTX3750 

MTX3760 

MTX3770 

MTX3780 

MTX3790 

MTX3800 

MTX3810 

MTX3820 

MTX3830 

MTX3840 

MTX3850 

MTX3860 

HTX3870 

MTX3880 

MTX3890 

MTX3900 

MTX3910 

MTX3920 

MTX3930 

MTX3940 

MTX3950 

MTX3950 

MTX3970 





V 


630 


640 

650 


660 

670 

6B0 


690 


700 

710 


C 


10 

20 


C 

C 

C 

C 

C 


K1=MJW1 (2*NJP) +(IPHI“L1-ISYM)*NW (25-1 
«MW=NW(2) 

BO TO 650 

Kl=MJWl (3»NJP) + (IPHI-tl-ISYM)*MW(3)-l 
K<'1W=NW(3) 

!)0 670 KK=1»KNW 
»<^L=K1 + KK 
JA=KL+2«JPANEL 

A4=l, ^ 

nn 660 L=1»KNW 

LL=K1+L 

IF (L.EObKK) go to 660 

4A=AA« (XCP (IJ)-XV(LU ) /(XV {KL)~XV(LD ) 

CONTINUE 

Av/(JA)=AW( JA)-AA-»VMU*VMU*TEMP»0.5 

continue 

IF (KCODE.FO.O) go TO 710 
IF (ZJET.GT.0,0li GO TO 710 
IF (OFJeLE. 0.0001) GO TO 710 
TF (NNJ.EQ.l) GO TO 690 
IF aj.LE.MJJ{Nl) ) GO TO 710 

continue 

IF tIPHI.EQ.NJH) GO TO 710 

IF (ISYM.NE.O.AND.IPHI.EQ.l) GO TO 710 

00 700 J=1 . JPANFL 

JvJ=J+JPANEL 

5V(J)=«-AW (JJ) 

write (02) (SVCJ) ♦J=l» JPANEL) 

CONTINUE 

VMIJ-VUT 

TEMP=TEM 

return 

end 

HURPQUTINE SKIP (IfJPANEU 
DIMENSION DUMMY(200) 

IF (I.EQ.O) GO TO 20 
00 10 J=1»I 

READ (02) (DUMMY (K) »K=1»JPANEL) 

continue 

return 

END 

OVERLAY (U5BOWBi4,0) 

PROGRAM SOLUTN 

TO SOLVE THE JET ON AND JET OFF EQUATIONS 

GAMMA MUST BE DIMENSIONED TO HAVE AT LEAST (N+l)<H»2/4 ELEMENTS* 
WHERE N IS the size OF THE MATRIX 

niWENSlON AW(300)» CA(300)» GAMMA(20170) 


MTX39’80 

MTX3990 

MTX4000 

MTX4010 

MTX4020 

MTX4036 

MTX4040 

MTX4050 

MTX4060 

MTX4070 

MTX4080 

MTX4090 

MTX4100 

MTX4110 

MTX4120 

MTX4130 

MTX4140 

MTX41S0 

MTX4160 

MTX4170 

MTX4180 

MTX4190 

MTX4200 

MTX4210 

MTX4220 

MTX4230 

MTX4240 

MTX4250 

MTX4260 

MTX4270 

MTX4280 

MTX4290 

MTX4300 

MTX4310- 


SKP 

10 

SKP 

20 

SKP 

30 

SKP 

40 

SKP 

50 

SKP 

60 

SKP 

70 

SKP 

80“ 

SOL 

10 

SOL 

20 

SOL 

30 

SOL 

40 

SOL 

50 

SOL 

60 

SOL 

70 


ijj r\j 


OIMENSIOM GAMVROOO) SOL 80 

COMMON /CODE/ KCODE SOL 90 

common /scheme/ C ( 2) C10»41) » Y { 10 *41) jSLOPF- ( 15) » XL{ 2» 15) »XTT (41 ) , sol 100 

1XLL(41) SOL 110 

COMMON /GEOM/ HALE5W . XCP C 2 00 ) , YCP (20 0 ) , ZCP (20 0 ) , XL£ (50 ) » YLE (50 ) ♦ XTSOL 120 
IE (50) »PSI (20) »CH (95) ,XV(200) »YV (100) .SN (StB) ,XN(200»2) *YN(200,2) ♦ZSOL 130 
N(200,2) ,WIDTH(8) *YCON(25) »SWEEP(50) tHALFB»SJ(21 »8) .EX (95,2) ,TX(95S0L 140 
,2) ,SC(160,5) ,ST (160,5) ,LC(3) SOL 150 

COMMON /PARAM/ ALPT, ALPC , ALPS , CDF, SDF , TH , TOP SOL 160 

COMMON /AERO/ AMI , AM2, B1 , B2 , CL ( 3 0 ) , CT { 30 ) , CD ( 30 ) , GAM (2 , 1 00 ) SOL 170 

COMMON /ADD/ CP ( 100 ) , CM ( 30 ) , BRE AK ( 8 ) , 5WP ( 8 , 15 ) , GAL (30 ) , I SYM, VMU» VUSOL 180 

I, TEMP, FCR,CAMLER, CAMLET, rAMTER,CAMTET,XJ,YJ,ZJ,RJ, alp, CREF.TWISTR SOL 190 
COMMON /CONST/ NCS , NCW , M 1 ( 8) , N? J ,NCJ ( 5) , L AST ,M JWl ( 3, 5) ♦ M JW2 (3 ,5 ) , JSOL 200 
1PANEL,MJJ(5) ,NV/(3) ,NNJ,NJP SOL 210 

COMMON /COST/ LTOJAL ,LP ANl , N JW ( 5 ) , LPANEL , lENTN , LPAN2 , EXIT, PTI AL, TWSOL 220 
lIST,nF(5) ,NFP SOL 230 

REWIND 01 . SOL 240 

IUSB=YC0N(24) ‘ SOL 250 

(•.•C=IENTN SOL 260 

77=YC0N(25) sol 270 

TTN=YC0N(23) sol 280 

IC=1 SOL 290 

J1==LPANEL+1 SOL 300 

LP1=LT0TAL+1 SOL 310 

SOL 320 

OFJ=CDF SOL 330 

NA=3 SOL 340 

IF (NW(2),EQ,0) NA=1 SOL 350 

IF (NW(2) .NE.O.AWn.NW (3) .FQ.O) NA=2 SOL 360 

10 CONTINUE . SOL 370 

1;G = 1 sol 380 

MG=NW(1) SOL 390 

NG=NW(1) SOL 400 

read (01) (AW (I) ,1=1, Jl) SOL 410 

XH=XCP(1) SOL 420 

YB=YCP (1 ) SOL 430 

P-4PV=0. SOL 440 

IF (IUSB.EQ.1.AND.ITN,EQ,0) go to 20 SOL 450 

CALL IMOVEL (X8 , YP , X J , Y J , Z J , RJ , BB , PHRV,PHX ,TEMP , VU , PHY , I SYM) SOL 460 

20 CONTINUE SOL 470 

AW (J1)=AW(J1)+XTT(IG)+PHPV/(ALPC<<-VU) SOL 480 

DO 30 T=1,LPANEL SOL 490 

30 GAMMA(I)=~AW(I+1)/AW(1) SOL 500 

NJ=LPANEL”1 SOL 510 

no 60 ij=?,lpanel sol 520 

read roi) (AW(K),K=1,J1) SOL 530 

XH=XrP(TJ) SOL 540 

Y3=YCP(TJ) SOL 550 

IF (lUSB.EQ.l.AND.ITN.EQ.O) 60 TO 40 SOL 560 


40 


50 

60 

70 


BO 


90 


100 


G 

C 

c 

c 


CALL TNDVEL (XB, YB»XJ» YJ » 7J»RJ»BB ,PHRV»PHX t TEMP . VU t PHY» ISYM) 
CONTINUE 

AW(J1)=AW (Jl) +XTT(IG)«'PHPV/(ALPC<^VU) 

IK=IJ 

CALL VMSEQN (NJ, IKt AW»GAMMA»CA) 

NJ=NJ-1 

IF {IJ.6E.LPAN1.AND,IJ.LT.LPAN2) NG=NW(2) 

IF (IJ,GE.LPAN2.AND,IJ.LT.LPANEL) NG=NW(3) 

IF {IJ.LT,MG) GO TO 50 

IG=IG+1 

Mij=M6*NG 

IF (IJ.EQ.LPAN1.0R,IJ.E0,LPAN2) IG=1 
CONTINUE 

DO 70 I=1»LPANEL 
GAM(IC»I)=GAMMA(I) 

IF (ABS(B1-B2) ,LF. 0,001) GO TO 80 

IC=IC+1 

B^=B2 

IF (IC.GT.?) GO TO SO 

SO TO 10 

CONTINUE 

'/toUC=VMU*ALPC 

I>^HI = 1 


SOL 570 
SOL 580 
SOL 590 
SOL 600 
SOL 610 
SOL 620 
SOL 630 
SOL 640 
SOL 650 
SOL 660 
SOL 670 
SOL 680 
SOL 690 
SOL 700 
SOL 710 
SOL 720 
SOL 730 
SOL 740 
SOL 750 
SOL 760 
SOL 770 
SOL 780 
SOL 790 


vJ=LPANEL-*-NCJ (1) 

INN=1 

JNN=1 

I=LAST+i 

READ (01) (AW(K) ,K=l»LTOTAL) 


SOL 800 
SOL 810 
SOL 820 
SOL 830 
SOL 840 


CALL STREAM { ALRHA ♦ VMUC » I * IPHI » LPAMELY TEMP ♦ LPANl * LPAN2 1 ISYM» KCODE ♦ SOL 850 

lEXITfMJ) SOL 860 

AW (LPl )=ALPHA sol 870 

no 90 I=ltLTOTAL SOL 880 

GAMMA(I)=-AW (I+1)/AW(1) SOL 890 

KI=2 sol 900 

NT=LT0TAL“1 sol 910 

LT=LAST+2 sol 920 

IH=NWCNA) +MJW1(NA»NJP)”1 SOL 930 

KJ=LI SOL 940 

IF (LI'.GT.LAST) KJstLT-JPANEL SOL 950 

READ (01) (AW(K) tK=l»LTOTAL) SOL 960 

CALL STREAM ( ALPHA»VMUCtLI * IPHI ,LPANEL»TEMP9LPAN1 »LPAN2» ISYMtKCQDESOL 970 

1»EKIT,MJ) SOL 980 

IF CKCODEaEQ.O) 60 TO 120 SOL 990 

IF (ZZ.GE.0.01) GO TO 120 SOLIOOO 

additional EXTERNAL FLOW DEFLECTION IS ALLOWED IF THE JET ANGLE iSSOLlOlO 
GREATER THAN THE FLAP ANGLE BECAUSE OF THE EFFECT OF FINITE TRAI- SOH020 
LING-EDGE ANGLES, FOR THIN AIRFOILS* THIS CAN BE ELIMINATED BY SOL1030 
INSERTING THE STATEMENT* IF (KCODE.EQ.l) GO TO 63 SOL104O 

IF (LI*GE,mJW1 (NA*NJP) .AND.LI.LE.MJW2(NA*NJP) ) GO TO 110 SOL1050 


V 

V 


1X0 


GO TO 1?.0 

IF (LI.WE.IH) GO TO 120 
IF ( (DFJ-TDF) .LT.O.) GO TO 120 
C7T=CAMTER-(CAHTFR-CAMTET5*YCP (LI) /halfb 
APA=0.5*(DFJ»TDF+CZT) 

TF (VMU.GT. O ,B5) APA=APA-» { 1 . -VMU ) /O . 15 
IF (APA.LT.O,) APA=0, 

alpha=alpha+apa 

IH = IH + KJW (NA) 

120 'OKjtINUE 

Aw (LPl )=ALPHA 

CALL VMSEQN (NI »KI , AW»GAMMA»CA) 

(KJ.LT.MJ.OR.KJ.EO.LAST) GO TO 130 
irwt-jphi+1 
MJ=MJ+MCJ( INM) 

130 CONTIMUE 

«JI=MJJ ( INW) -1 
IF (KJ.EQ.MJI) GO TO HO 
GO TO 150 
140 JNN=IhlN 

INN=INW+1 

150 TF (KJ.EQ.MJJ ( JNM) ) IPHI=1 
IF (LI.EQ.LTOTAL) GO TO 160 
GO TO 170 
160 CONTINUE 
IPHI=1 

MJ=LPANEL*NCJ(1) 

JNN!=1 

TNN=1 

170 CONTINUE 
i<T=KI + l 
NI=NI-1 

IF (LI.EQ.LTOTAL) go TO 180 
IF (LI. EQ. LAST) GO TO 190 
LI=LI+1 
GO TO 200 
180 LI=LPAMEL+1 
GO TO 200 
190 LI=1 
200 CONTINUE 

IF (KI.LE.LTOTAL) 60 TO 100 
rA=2»JPANEL 
JPAN1=JPANEL+1 
00 210 I=l*LTOTAL 
210 GAMVR(I)=GAMMA (I) 

TF (lUSP.EQcl^AND.ITN.EQ.O) 60 TO 260 
IG = 1 

MG=NW (1) 

NG=NW(1) 


SOL1060 

SOL1070 

SOL1080 

SOL1090 

SOLllOO 

SOLlllO 

SOL1120 

SOL1130 

SOL1140 

SOL1150 

SOL1160 

SOL1170 

SOLliao 

SOL1190 

SOL1200 

SOL1210 

SOL1220 

SOL1230 

SOL1240 

SOL1250 

SOL1260 

SOL1270 

S0L12SQ 

SOL1290 

SOL1300 

SOL1310 

SOL1320 

SOL1330 

SOL1340 

SOL1350 

SOL1360 

SOL1370 

SOL1380 

SOL1390 

SOL1400 

SOLI410 

GOL1420 

^OL1430 

SOL1440 

SOL1450 

SOL1460 

SOL1470 

SOL 1480 

SOL1490 

SOL1500 

SOL1510 

SOL1520 

SOL1530 

SOL1540 









9EWIND 01 

SOL1550 


r?EAD (01) (AW(I) ♦I=1»J1) 

SOL1560 


AW(J1)=AW(J1)+XTT(IG) 

SOL1570 


00 220 I=1»LPANEL 

SOL1580 

220 

GAMMA ( I ) =-AW ( I +1 ) /AW ( 1 ) 

SOL1590 


mj=lpanel-i 

50L1600 


00 240 IJ=r2»LPANFL 

SOL1610 


HEAD (01) (AW{K) »K=1 »J1) 

SOL1620 


AW(J1)=AW(J1)+XTT(IG) ■ 

SOL1630 


IK=IJ 

SOL1640 


CALL VMSEQM (NJf IK»AW»GAMMAfiCA) 

SOL1650 


NJ=NJ-1 

SOLI 660 


IF (IJ.GE.LPAN1.AND.IJ.LT.LPAN2) NG=NW(2) 

SOL1670 


IF (IJ.GE.LPAN2.AND.IJ.LT.LPANEL) NG=NW(3) 

S0L1680 


IF (IJ.LT.MG) go to 230 

SOL1690 


T6=IG+1 

SOL1700 


MGsMG'frNG 

SOL1710 

230 

IF {IJ,EQ.LPAN1,0R.IJ,EQ.LPAN2) IG=1 

SOL1720 

240 

CONTINUE 

SOL1730 


00 250 I=l9LPANEL 

SOL1740 

2‘iO 

RAM(2,I)=GAMMA(I) 

SOL1750 


GO TO 280 

SOL1760 

260 

DO 270 I=l»LPANEL 

SOL1770 

270 

GAM(2»I)=GAM(1»I) 

SOL1780 

2H0 

CONTINUE 

S0H790 


cam=camler 

SOL1800 


camt=camlet 

SOL1810 


call thrust (LTOTALf LPANEL iGAMVR»CAM»LPAN1 » VU» XJ»YJ»ZJ»RJ»TEMP 

fGALSOL1820 


1*TSYMi,LPAN2,CAMT) 

SOL1830 


00 290 I=l*LPANEL 

SOL1840 


IH=I+IA 

S0L1850 


IC=l 

SOL1860 

290 

OAMVR ( I ) =GAMVP ( IR) +GAM ( IC? 1 ) 

SOL1870 


on 300 I=l<iLPANEL 

SOL1880 

300 

CP { I) =GAMVR (I) *2.*ALPC 

SOL1890 


RETURN 

SOL1900 

C 


50L1910 


END 

SOL1920 


SUBROUTINE INDVEL (XD»Y»XJ»YJ» ZJ»RJ#B2»PHRV»PHX»T*U»PHY» ISYM) 

IND 10 

C 

TO COMPUTE THE INDUCED VELOCITIES DUE TO JET ENTRAINMENT 

INO 20 


DIMENSION VZ(2)f VX{2)» VY(2) 

INO 30 


COMMON /JET/ PKl»XCfX(31)»A(31)»B(3i) 

IND 40 


REJ=T 

IND 50 


VZ(2)=0. 

IND 60 


VX (2)=0. 

IND 70 


VY(2)»0. 

IND 80 


S9J=S0RT(REJ) 

IND 90 


XP={XD-XJ) /RJ 

IND 100 


NCOT-ISYM+l 

IND 110 




I 


in 


20 

30 


4n 


DO 40 K=ltNCOT 
IF (K.EO.l) FC=1. 

IF CK.E0.2) FC=-1. 

t?H=:SQRT (ZJ*Z J+ (Y«FC-YJ) #«2) /R J 

F1=SQRT( (XB-XC)«-»2+B2«RB-H-RB) 

F?=SQRT { XR*<^2+82*PB»PB ) 

G10= (XB-XC)/F1-XI3/F2 
320=1, /F1-1./F2 

StiMR::- { A ( 1 ) +fl ( 1 ) *XB) *G1 0/RR-B2*RB*B { H »G20 

‘='LIMX=(Aa) +R (1)*XB)*G2 0~P (1) «G10+B (DIALOG ( (X8-XC+F1)/{XB + F2) ) 
IF (U.LE.O.Ol) GO TO 20 
.)=? 

3UM1=SUMR 

SIJM2=SUMX 

Fl=SORT{ (XR-X (J) )**2+B2«RB*RB) 

F?=SG)RT( (XR-X (J-n )**2 + B2«^RB«'RB) 

31=(XB-X(J) )/Fl-(XB-X<J-l) )/F2 

32=l./Fl-l,/F2 ■ 

SUF<R=SUMR" (A (J) +R (J) *XB) «^G1/RB“82*RB*B { J) *G2 


IND 

IND 

IND 

IND 

IND 

IND 

IND 

IND 

IND 

IND 

IND 

IND 

IND 

IND 

IND 

IND 

IND 

IND 

IND 


SUMX=SUMX+ (A (J)+B(J)*XB)*G2-B t J1 *G1 + B( J) «ALOG{ (XB-X ( J) +F1) / (XB“X < JIND 
1-1 ) +F2) 1 ' IND 

IF (J.GE,3l) GO TO 30 IND 

J=J+1 IND 

30 TO 10 IND 

3U^'R=SUMR + 0.3^^^(l. + {XB-XC)/Fl)/RB IND 

RijmX = SUMX-0.32/F1 IND 

PHRV=SRJ*0.25»SUMR*ZJ/(RP*RJ) IND 

PHY=-SRJ»0.25«SUMP» (Y“YJ*FC) / (RBttRJ) IND 

PHX = -SRJ«-0,25*SUMX IND 

YX(K)=PHX/2. IND 

VY (K) =PHY/2. IND 

\/Z (K) =PHRV/2. IND 

PHRV=VZa) +VZ<2) . IND 

PHX=VX(1)+VX(2) IND 

PHY=VY(1) +VYC2) IND 

RETURN IND 

IND 

end IND 

SUBROUTINE STREAM (ALPHA , VMU* I» IPH I , LPANEL « TEMP » LPAN1» LPAN2» rSYM*KSTM 
iCODEtEXITtMJ) STM 

TO COMPUTE THE RIGHT HAND SIDE OF THE SIMULTANEOUS EQUATIONS STM 

dimension PHINC300) STM 

COMMON /SCHEME/ C(2) *X ( 1 0 » 41 ) » Y (10 ?41 ) ?SL0PE(15) tXL(2jI5) »XT7(4l) ,STM 
1XLL(41) STM 

COMMON /GEOM/ HALFSW»XCP (200 ) 9YCPC200) »ZCP (2Q0 ) tXLE (50 ) »YLE(50) sXTSTM 
IE(30) »PSI(20) »CH(95) »XV(200) »YV(100) fSN(8t8) »XN{200»2) »YN(200 !p 2) »ZSTM 
2N(200?2) ,WIDTH(8) *YC0N(25) , SWEEP (50) sHALFB »SU (21 ,8) »EX(95,2) ,TX(95STM 
3T?)»SC(I60t5) »SI (160,5) »LC(3) STM 

COMMON /AERO/ AM1,AM2-.B1,P2,CL(30) ,CT(30) ,CD(3Q) ,GAM(2,100) STM 


120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
33 0 
340 
350 
26 0 
370 
380 
390 
40 0 
4X0 
420 
430 
440 
450 
460 
470 
480 
490- 
10 
20 
30 
40 
50 
60 
70 
80 
9 0 
100 
110 


V, 


10 


?0 


30 


40 

50 


60 


COMMON /CONST/ NCS »NCW tMl ( 8) »NS J »NCJ < 5 ) »LAST t MJWl (3 . 5) 
1PANEL»MJJ(5) »NW(3) »NNJ»NJP 
C'^MMON /PARAM/ ALPT» ALPC* ALPSf CDF ♦ SDF t TH»TDF 
EQUIVALENCE { X U U ) * PHIN ( 1) ) 

PT=3.14159265 

IUSB=YC0N(24) 

7JET=YC0N(25) 

N1=NNJ-1 

M?=NNJ-2 

n3=NNJ-3 

NJH=(NSJ + n /2+1 

IF (ISVM.EQ.O) NJH=NSU/2 

MP=NJH-1 

IF (ISVM.EQ.O) NP^NJH 
ALPHArO, 

IF (I.GT.LPANEL) GO TO 10 
GO TO 220 

IF (I.GT.LAST) go TO 100 
IF (EXITcLE. 0. 001) GO TO 20 
IF (NNJ.EQ.l) 60 TO 20 


»MJW2(3-i5) »JSTM 120 
STM 130 
STM 140 
STM 150 
STM 160 
STM 170 
STM 180 
STM 190 
STM 200 
STM 210 
STM 220 
STM 230 
STM 240 
STM 250 
STM 260 
STM 270 
' STM 280 

STM 290 
STM 300 
STM 310 


IF (I.LE.MJJd) .AND.I.NE.MJ) GO TO 220 
CONTINUE 

ALPHA=ALPT*Y (3» IPHl ) * { 1 .-VMU) 

IF (TH.LE. 0,001) GO TO 30 
IF (IPHI.EQ.NJH) GO TO 30 
IF (ISYM.NE.O.AND.IPHI.EQ, 1) GO TO 30 
IF (I.GT.MJJCND) ALPHA=ALPHA+CDF* Cl.-VMU) 
CONTINUE 

IF (APS(B1-B2) .LE, 0.001) GO TO 40 

CALL NORSPD { I . ALPH, LPANFL t IPHI tLPANl t LPAN2) 

alpha=alpha+alph 

IF CKCODE.FQ.O) GO TO 220 
IF (EXIT.LE, 0,001) GO TO 50 

IF (I.LE.MJJ (1) .AND. I.EQ.HJ) ALPHA=ALPHA/2 . 
IF (IPHI.EO.NJH) GO TO 220 
IF (ISYM.NE.O.AND.IPHI.EO.I) GO TO 220 
IF (IUSB.EQ.l.AND.ZJET.GT.0.01) GO TO 220 
IF ( CDF. LT. 0.0 001) 60 TO 220 
IF (NNJ.EQ.l) GO TO 60 
IF (I.LE.MJJ(Nl) ) GO TO 220 
IF (IPHI.LT.NJH) IL=IPHI+ISYM 
IF (IPHI.GT.NJH) IL=IPHI-NJH+ISYM 
MF=I-MJJ (Nl) -(TPHI-1)«NCJ(NNJ) 

FNNJ=NNJ 

DISTJ=SDF 

DLX=DISTJ*0,5*PI/FNNJ 

SZX=-(l.-VMU) 

IGi=(IL-l)*NCJ(NNJ) 


STM 320 
STM 330 
STM 340 
STM 350 
STM 360 
STM 370 
STM 380 
STM 390 
STM 400 
STM 410 
STM 420 
STM 430 
STM 440 
STM 450 
STM 460 
STM 470 
STM 480 
STM 490 
STM 500 
STM 510 
STM 520 
STM 530 
STM 540 
STM 550 
STM 560 
STM 570 
STM 580 
STM 590 


IF (NN<J*EQ,1) IP=LPANFL + IQ + X 


STM 600 

IF (NNJ.NE.l) IP=MJJ(N1)+IQ+1 


STM 610 

on 90 JJ=1»MF 


STM 620 

IF {JJ.EQ.MF) t50 TO 70 


STM 630 

OXTH=DLX*PSI { JJ) ■«-TEMP«-VMU^*-VMU/TH 


STM 640 

00 TO flO 


STM 650 

0XTH=DLX*P5I tJJ) *TFMP«0,5*VMU*VMU/TH 


STM 660 

JK1=IP+JJ 


STM 670 

JK2=JK1-1 


STM 680 

PPOn=SZX<^DXTH 


STM 690 

JK3=JK^+NP^^NCJ (NNJ) 


STM 700 

ALPHA = ALPHA + PROD*(PHI(^{ JK?)-PHIN f JK3) ) 


STM 710 

CONTINUE 


STM 720 

PO TO 220 


STM 730 

CONTINUE 


STM 740 

IJ=I-JPANEL 


STM 750 

IF (KCODE.EO.O) GO TO 200 


STM 760 

IF IEXIT.LE.0.01) GO TO 110 


STM 770 

IF (NNJ.EQ.l) GO TO 110 

t 

STM 780 

IF (IJ.6T,LPANEL.AND.IJ.LE.MJJa) ) GO 

TO 220 

STM 790 

continue 


STM 800 

IF (IUSP*E0.1, AND. ZJET»GT, 0,01) GO TO 

200 

STM 810 

IF (NNJ.EQ.l) GO TO 200 


STM 820 

IF (IJ.GT.MJJ(Nl) ) 60 TO 200 


STM 830 

IP (IPHI.LE.NJH) GO TO 200 


STM 840 

U=NJH 


STM 850 

IF (ISYM.EO.O) L1=NJH+1 


STM 860 

IF (NW(2).FO.O) GO TO 130 


STM 870 

IF (NW(3) ,EQ.O) GO TO 120 


STM 880 

IF (IJ.GT,MJJ(N2) ) GO TO 160 


STM 890 

IF ( IJ.GT.NJJ(N3) ) 60 TO 150 


STM 900 

IF (NNJ.PQ.4) GO TO 140 


STM 910 

IF (NNJ.EQ.5.AND.IJ.GT.MJJ CNNJ-4) ) GO 

TO 140 

STM 920 

GO TO 200 


STM 930 

IF (IJ,GT.HJJ{N2) ) GO TO 150 


STM 940 

IF (NNJ.EQ.3) GO TO 140 


STM 950 

IF (NMJ,EQ,4,AND,IJ.GT.MJJ(N3)) GOTO 

140 

STM 960 

GO TO 200 


STM 970 

IF (NNJ.EQ.2) GO TO 140 


STM 980 

IF (NNJ,EQ.3.AND.IJ,6T.MJJ(N2) ) GO TO 

140 

STM 990 

GO TO 200 


STMIOOO 

K1=MJW1(1»MJP) + (lPHI-Ll-ISYM)*Nwa)-l 


STMlOlO 

K2=LC(1) -flPHI-Ll-ISYM 


STH1020 

KNW=NW(1) 


STM1030 

GO TO 170 


STM1040 

K1=MJW1 (2*NJP) +(IPHI-L1-ISYM)*NW(2)-1 


STM1050 

f<?=l.C{2) +IPHI-L1-ISYN 


STM1060 

KNW=NW(2) 


STM1070 

GO TO 170 


STM1080 



IbO 


170 


180 


190 


200 


210 

220 


C 

C 


K1=MJW1 OtNJP) +(IPHI-L1-ISYM)*NW(3)-1 

K2=LC(3) ♦IPHI-Ll-ISYM 

K.siW=NW(3) 

CONTINUE 

ALPHA1=0. 

ALPHA2=0. 

00 190 KK=1*KNW 
•<L=K1 + KK 
AA = 1. 

DO 180 U=1»KNW 
LL=K1+L 

TF (L.EO.KK) GO TO IBO 

AA=AA«-(XCP (IJ) -XV{t_L) ) /(XV {KU -XV (LL) ) 

CONTINUE 

ALPHA1=ALPHA1+AA*GAM ( 1 tKL) 

IF (ABS (R1-B2) .LE.O.OOn GO TO 190 

ALPHA2=ALPHA2+AA*GAM(2»KL) 

continue 

IF (ABS(B1-B2) .LE. 0,001) ALPHA2-ALPHA1 
ALPHA= ( ALPHA2-TEMP*VWU«VMU*ALPHA1) *0.5 
GO TO 220 

continue 

CALL SPEED ( VMU , I , ALPHA , LPANEL» TEMP , LP AN 1 , LPAN2 , PHIS , IPKI ♦ ISYM) 
IF (KCOOE.EQ.O) GO TO 220 

220 


IF (CDF. LT. 0.0001) GO TO 

IF (MNJ.EQ.l) GO TO 210 

IP (IJ.LE.HJJ(N1) ) GO TO 

PHIN(IJ)=PHIS 

CONTINUE 

9ETURN 


220 


(VMU»I»ALPHA»LPANEL*TEMP»LPANl,LPAN2fPHIS»IPHIf 
TANGENTIAL VELOCITIES DUE TO WING ALONE 


END 

SUBROUTINE SPEED 
lYM) 

TO COMPUTE THE INDUCED 

VORTICES 

DIMENSION SU(IOO) 

COMMON' /SCHEME/ C { 2) ♦ X (1 0 . 41 ) » Y ( 1 0 » Al ) » SLOPE (1 5) » XL ( 2, 15 ) » XTT (41 
1XLL{41) 

COMMON /GEOM/ HALFSWtXCP (200) »YCP(200) »ZCP (200) .XLE(50) »YLE(50) ♦ 
1E(50) iPSI (20) »CH(95 ) t X V ( 20 0 ) » Y V ( 1 00 ) » SN ( 8 » 8 ) t XN ( 20 0 » 2) »YN(200»2) 
2N(200»2) .WIDTH (8) ,YCON (25) .SWEEP (50) .HALFB . SU ( 21 . 8 ) » EX (95, 2) . TX ( 
3»2) .5C(160.S) .SI (160.5) .LC(3) . 

COMMON /AERO/ AMI , AM2 . B 1 . B2 .CL (30 ) ,CT ( 3 0 ) , CD ( 30 ) .GAM { 2, 100 ) 

COMMON /CONST/ NCS.NCW .Ml (8) iNSJ,NCJ{5) . LAST, MJWl (3,5) ,MUW2(3,5) 
1PANEL,MJJ{5) ,NW(3) .NNU.NJP 

N1=NNJ-1 

N2=NNJ-2 


STM1090 

STMllOO 

STMlllO 

STM1120 

STM1130 

STM1140 

STM1150 

STM1160 

STM1170 

STMliaO 

STMU90 

STM1200 

STM1210 

STM12E0 

STM1230 

STM1240 

5TM1250 

STM1260 

STM1270 

STM1280 

STM1290 

STM1300 

STM1310 

STM1320 

STM1330 

STM1340 

STM1350 

STM1360 

STM1370 

STM1380 

STM1390 

STM1400- 


ISSPD 
SPD 
SPD 
SPD 
SPD 
) .SPD 
SPD 
XTSPD 
fZSPD 
95SPD 
SPD 
SPD 
fJSPO 
SPD 
SPD 
SPD 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 




N3=NNJ~3 

7JET=YC0N(25) 

II=I“JPANEL 

IC=1 

10 CONTINUE 
1 . 7=1 

MM=o 
ISN=1 
NL=NVI { 1 ) 

\M=NW(1) 

B=0. 

00 70 J= 1 ,LPANEL 

JJ=J-MM 

FM=NL 

IF { J,GT.UPAN 1 ,AND,J.LE.LPAN 2 ) 15 N =2 
IF { J,GT.LPAN 2 .AND.J.LE.LPANEL) ISN =3 
IF ( J.GE.LPAN 1 .AND.J,LT.LPANEL> 60 TO ?0 
GO TO 30 
20 NL=NW( 2 ) 

IF ( J,GE.LPAN 2 ,AND.J.LT.LPANEL} NL=NW( 3 ) 

30 CONTINUE 

X 1 =XN{J» 1 )-XCP (II) 

XP=XN(J» 2 )-XCP(II) 

X 12 =XN(J* 2 )-XN(J» 1 > 

Y 12 =YN(J» 2 )-YN{Jtl) 

71=“ZCPni) 

72 =-ZCP(II) 

Z1S=0. 

XZJ=-Z 1 »X 12 
no 60 K=l »2 
IF (K.EQ.I) go to 40 
N=1 

GO TO 50 
40 N =2 

50 CONTINUE 

YC=(-le)-»^»N*YCP{II) 

Y 1 =YN{J» 1 )«-YC 

Y 2 =YN(J» 2 )“YC 

XYK=X 1 '»'Y 12 -Y 1 *X 12 

V 7 I=-Z 1 *Y 12 

albi=xyk#xyk+xzj<»xzj+bb«yzi*yzi 

R 181 =S 0 RT(X 1 «-X 1 + P.R*Y 1 *Y 1 +BB*Z 1 *Z 1 ) 
R 2 B 1 =SQRT(X 2 *X 2 +BB»Y 2 <^Y 2 + BB»Z 2 *Z 2 ) 
UUBi=(X 2 *X 12 +BS#Y 2 *Yl 2 +BB*Z 2 *Z 12 )/R 20 l-(Xl 
1 )/P 181 

F1=UUB1*^YZI/ALB1 

SIJM=F1*CH ( IZ) *SN { JJ» ISN) *GAM ( IC » J) /FN 
IF (K.EQ.1) SU(J)=FI»CH(IZ)»SN(JJtISN)/FN 


SPO 170 
SPD 180 
SPD 190 
SPD 200 
SPD 210 
SPD 220 
SPD 230 
SPD 240 
SPD 250 
SPD 260 
SPD 270 
SPD 280 
SPD 290 
SPD 300 
SPD 310 
SPD 320 
SPD 330 
SPD 340 
SPD 350 
SPD 360 
SPD 370 
SPD 380 
SPD 390 
SPD 400 
SPD 410 
SPD 420 
SPD 430 
SPD 440 
SPD 450 
SPD 460 
SPD 470 
SPD 480 
SPD 490 
SPD 500 
SPD 510 
SPD 520 
SPO 530 
SPD 540 
SPD 550 
SPD 560 
SPD 570 
SPO 580 
SPD 590 
SPO 600 

*X12+BB«Y1*Y12+BB«Z1*Z12SP0 610 

SPD 620 
SPO 630 
SPD 640 
SPD 650 


60 


f»=B + SUM 

IF (J.LT.NM) 60 TO 70 
17=17+1 
mh=NM 
Mm=MM+NL 
70 CONTINUE 

NJH=:(N'5J+l)/2+l 

IF (ISYM.EQ.O) NJH=NSJ/2 

IF (IPHI.EQ.NJH) GO TO 140 

IF (ISYM,NE,O.ANO.IPHI.EO,1) GO TO 140 

IF {NNJ.EQ.D 60 TO 140 

IF {II.GT.MJJ(Nin SO TO 140 

IF (IPHI,GT,NJH. and, ZJET.LE. 0.01 ) GO TO 140 

IF (IPHI.GT.NJH) L1=NJH 

IF (ISYM.EQ.O, AND. IPHI.GT.NJH) L1=NJH+1 
IF (IPHI.LE.NJH) Ll=l 
N7 = i 

IF (NW(2) .NE.O.AND.NWO) .EQ.O) NZ=2 
IF (NW(3).NE,0) NZ=3 
IF (NNJ.LE.3.AND.NW(2) ,NE.O) IR=N2 
IF (NNJ,LE,3,AND,NW(2) .EO.O) IP=Nl 
IF (NNJ,GE.4.AND,NW(3) ,NE.O) IR=N3 
IF (NNJ,EQ.4.AND.NW(3) .EQ.O) IR=N2 
on 130 MP=1.NZ 

K-1=MJW1 (MP,nJP) + (IPHI-L1-ISYM)*NW(MP)-1 

K2=LC(MP)+iphi-L1-ISYM 

KNW=NW(MP) 

•<1=K1-KNW 
<2=K2-1 
MP=3 ■ 

IF (Kl.GE.O) GO TO 80 

K1=K1+KNW 

<2=K2+1 

MN=2 

80 OO 120 NR=1,MR 

SUM=0. 

00 90 KK=1 *KNW 
KL=K1+KK 

90 SIJM=SUM + SU (KL) 

CALL I'NTEG (RES.KNW*K1,K2,II»BB,1R) 

CORN=0. 

DO no KK=1,KNW 
KL=K1+KK 

AA=1, , , 

00 100 L=1»KNW 
LL=K1+L 

IF (L.EQ.KK) GO TO 100 

AA=AA4(XCP (II>“XV(LL) )/(XV{KL)-XV(LL) ) 

100 CONTINUE 

no C0PN=C0RN + AA»6AM(IC,KL) 


SPD 

660 

SPD 

670 

SPD 

680 

SPO 

690 

SPD 

700 

SPD 

710 

SPD 

720 

SPO 

730 

SPD 

740 

SPD 

750 

SPD 

760 

SPD 

770 

SPD 

780 

SPD 

790 

SPD 

800 

SPD 

810 

SPD 

820 

SPO 

830 

SPD 

840 

SPO 

850 

SPD 

860 

SPD 

870 

SPD 

880 

SPD 

890 

SPD 

900 

SPD 

910 

SPD 

920 

SPO 

930 

SPO 

940 

SPD 

950 

SPD 

960 

SPD 

970 

SPD 

980 

SPD 

990 

SPOIODO 

SPDIOIO 

SPD1020 

SPD1030 

SPD1040 


SP01050 

SPD1060 

SPD1070 

SP01080 

SP01090 

sponoo 

sponio 

SPD1120 

SPD1130 

SP01140 

SPD1150 


1?0 

130 

uo 


150 

160 

170 

C 

C 


B=fl-C0RN*SUH+C0RN»RES*8. 

<1=K1+KNW 

CONTINUE 

IR=IR+1 

continue 

CONTINUE 

IF (IC.EQ.?) GO TO 150 
ALPHAlsR/8. 

IC=IC*1 

HR=B2 

IF {ABS(B1-B2) ,LE. 0.001) GO TO 160 

GO TO 10 

ALPHA2=B/8. 

GO TO 170 
ALPHA2=ALPHA1 

alpha=alpha2-temp*vmu-»vmu«-alphai 

PHIS=ALPHA2 

RETURN 


END 

SUBROUTINE 


SPD1160 
SPD1170 
SPDl 180 
SPD1190 
SPD1200 
SPD1210 
SPD1220 
SPD1230 
SPD12A-0 
SP01250 
SPD1260 
SPD1270 
SPD1280 
SPD1290 
SPD1300 
SP01310 
SPD1320 
SPD1330 
SPD13A0 
SPD1350 
5PD1360- 


THRUST (LTOTAL»LPANELtGAMMA»CAM*LPANl»VMU 


1 »BAL»ISYM,LPAN2*CAMLET) 

TO EVALUATE THE LEADING EDGE THRUST 
DIMENSION GAMMA(1)» GAL(1) 

COMMON /SCHEME/ C ( 2) , X ( 1 0 » Al ) t Y ( 1 0 *41 ) t SLOPE ( 1 5 ) , XL ( 
1XLL(41) 

common /GEOM/ HALFS1rf.XCP{200) »YCP(200) 9ZCP(200 ) vXLEC 
IE (50) »PSI (20) rCH{95) »XV(200)»YV(100)»SN(8,8),XN{200» 
2N(200,2) f WIDTH (8) »YCON (25) » SWEEP (50) »HALFB »S J ( 21 ? 8 } » 
3»2) tSC (160»5) f SI (160»5) *LC (3) 
common /AERO/ AHl ,AM2tBl tB2,CL (30) »CT(30 ) » CD (30) ,GAM 
COMMON /CONST/ NCS»NCW»M1 (8) »NSJ»NCJ(5) ,LAST*MJW1 (3» 
1PANEL*MJJ(5) «NW(3) ♦NNJ»NJP 
COMMON /PARAM/ ALPT.ALPCf ALPS »CDF»SDF»TH»TDF 
PI=3, 14159265 
CAMLER=CAM 
CN=NW(1) 

IUSB=YC0N{24) 

ITN=YC0N(23) 

DO 200 I=1»NCS 
FC0S=C0S(SWEEP(I) ) 

FTAN=TAN (SWEEP (I) ) 

NK=I»NW(1) . 

IF (NW(2) ,EQ.O) GO TO 20 
II=I+NCS 

IF (NW(3) .NE.O) GO TO 10 

CHL=CH(I)+CH(IIJ 

GO TO 30 


»XJtYJ«ZJ»RJ»TTHR 10 
THR 20 
THR 30 
THR 40 

2» 15) *XTT (41 ) tTHR 50 
THR 6 0 

50) .YLE (50) 7XTTHR 70 
2) »YN(20072) ,ZTHR 80 
EX (95.2) »TX (95THR 90 
THR 100 

(2.100) THR 110 

5) ,MJW2 (3.5) . JTHR 120 
THR 130 
THR 140 
THR 150 
THR 160 
THR 170 
THR 180 
THR 190 
THR 200 
THR 210 
THR 220 
THR 230 
THR 240 
THR 250 
THR 260 
THR 270 
THR 280 


RKPT?nT>i,Tl3IIiITY OF TIill 

js fcos; , 


\ 


10 III=II+MC5 

CHL=CH(I) +CH(1I) +CH(III) 

GO TO 30 
PO CHL=CH(I) 

30 CONTINUE 

V SPT=SQRT (CH{1) /CHU 

BH=B1 
IC~1 
Tl-1 
MM = 0 
ISN = 1 
NM=NW(1) 

ML=NW{1) 

HC=0. 

A=0, 

DO 90 NN=1»LPANEL 

J=NN-MM 

FN=NL 

IF (NN.GE.LPANl, ANO.NN. lt. LPANEL) GO TO 40 
GO TO 50 
40 NL=NW(21 

IF (NN.GE.LPANS.ANO.NN.LT.LPANEL) NL-NW(3i 
IF (NN.RT.LPANI .AN0.NN.LE.LPAN2) ISN=2 
IF (NN.GT.LPANE.AND.NN.LE.LPANEL) ISN=3 
50 CONTINUE 

Xl=XN(NN,nT>XLE(I) 

X2=XN(NN»2)-XLE(I) 

X12=XN(NN.2)-XN(NNfl) 

Y12=YN tNN»2)-*YN(NN»l) 

DO 80 K=l,2 
IF (K.EQ.l) GO TO 60 
N] = l 

GO TO 70 
60 Nl=2 

70 CONTINUE 

YC=YLEU)*{-1. )**N1 

Y1=YN(NN»1)-YC 

Y2=YN(NN»21-YC 

XYK-XI^YIE-Yl-^XIP 

P1=5QRT(X1»X1+BB*Y1*Y1> 

R2=SQRT(X2*X2+BB*Y2*Y2) 

Ul={X12*X2+BB*Y12ttY2)/R2-(Xl2*Xl+BB®Y12*Yl)/Rl 
U1=U1/XYK 
U2=(l,-Xl/Rll/Yl 
' J3= ( 1 1 "X2/R2 ) /Y2 

RC=RC+ (U1+U2-U3)*SN(J»ISN) *GAM{2*NN)<*CH{IZ)/FN 
BO A=A+ (Ul + U2-U3)^SN(Jf ISN1«-GAM(IC,NN)*CH(IZ)/FN 

IF (NN.LT.NM.OR.NN.EO.LPANEL) GO TO 90 
IZ=IZ+1 


THR 290 
- THR 300 
THR 310 
THR 320 
THR 330 
THR 340 
THR 350 
THR 360 
THR 370 
THR 380 
THR 390 
THR 400 
THR 410 
THR 420 
THR 430 
THR 440 
THR 450 
THR 460 
THR 470 
THR 480 
THR 490 
THR 500 
THR 510 
THR 520 
THR 530 
THR 540 
THR 550 
THR 560 
THR 570 
THR 580 
THR 590 
THR 600 
THR 610 
THR 620 
THR 630 
THR 640 
THR 650 
THR 660 
THR 670 
THR 680 
THR 690 
THR 700 
THR 710 
THR 720 
THR 730 
THR 740 
THR 750 
THR 760 
THR 770 


90 


iOO 


110 

120 


130 


mm=nm 

MM=NH+NL 

COMTINUE 

CAMLE=CAMLER- (CAMLER-CAMLET) »YLE (D/HALFB 

A=A/a,+XTTtI) -CAMLE 

XR=XLE{T5 

YB=YLE(I) 

phrv=o. 

IF (lUSR.EQ.l.AND.ITN.EQ.O) GO TO 100 

CALL INDVEL (XB»YB»XJ,YJ.ZJfRJ»Bl,PHRV»PHX»Tf VMUsPHYtlSYM) 
CONTINUE 

A=A+PHRV/ t ALPG»VMU) 

A=A*SRT 

THRT1=A/{CN*SQRT(FTAM*FTAN+BB) ) 

XTE ( I> = (PI/2. ) ^BORT {1 . -AMl*AMl^^FCOS*FCOS ) *THRT l«THRT 1/FC05 

BC=BC/8.+XTT m-CAMLE 

RC=BC«SRT 

THR=BC/(CN»SQRT(FTAN*FTAN+BB) ) 

X (5»I)=(PI/2, )»SQRT (1.-AH1*AM1*FCOS»FCOS>*THR#THR/FCOS 
NM=NW ( 1 ) 

IND=1 

ISN=1 

Ll=LPANEL*l 

SK=1, 

IZ = 1 
MM=0 
II=NW(1} 

A = 0. 

FACTOR=l, 

AM=AM1 

RH=B1 

CONV=ALPC 

DO 190 NN=ltLAST 

IF (NN.GT.LPANEL) NA=NN-LPANEL+JPANEL 
IF tNN.LE.LPANEL) NA=NN + ?-» JPANEL 
FN = II 

IF {NN.GT.LPAN1,AND.NN,LE,LPAN2) ISN=2 
IP CNNtGT,LPAN2.AND.NN.LE.LPANEL) ISN=3 
IF (NN.GE.LPANI.AND.NN.LT.LPANEL) goto 110 
GO TO 120 
II=NW{2) 

IF {NN.6E.LPAN2. AND.NN.lt. LPANEL) II«NW(3) 

CONTINUE 

IF (NN.GE. LPANEL. AND, NN.LT.MJJ(IND)) II=NCJ(IND) 

J=NN-MM 

CHORD=CH(IZ) 

IF INN.EQ.Ll) GO TO 130 

60 TO 140 

ISN=ISN+1 


THR 780 
THR 790 
THR 800 
THR 810 
THR 820 
THR 830 
THR 840 
THR 850 
THR 860 
THR 870 
THR 880 
THR 890 
THR 900 
THR 910 
THR 920 
THR 930 
THR 940 
THR 950 
THR 960 
THR 970 
THR 980 
THR 990 
THRIOOO 
THRlOlO 
THR1020 
THR1030 
THR1040 
THR1050 
THR1060 
THR1070 
THR1080 
THR1090 
THRllOO 
THRlllO 
THR1120 
THR1130 
THR1140 
THR1150 
THR1160 
THR1170 
THR1180 
THR1190 
THR1200 
THR1210 
THR1220 
THR] 230 
THR1240 
THR1250 
THR1260 


140 


150 

160 


170 


leo 

190 


200 


C 

C 


L1=MJJ(IND) +1 

TF (NN«EQ.NU IN0=IND+1 
IF (NN.GT.LPANEL) ,FACT0R=0.5 
Xl=XN(NN»l)-XLE(I) 

X2=XN(NNt2>-XLE(I) 

X12=XN(NNt2)-XN(NN»l) 

Y12=YN (NN»2) “YN (MNt 1 ) 

Z12=ZM(NN.2)-ZN(NN»1) 

XZJ=X1»Z12-ZN (NN,1) »X12 
no 170 K=l»2 
IF (K.EQ.l) GO TO 150 
Nl = l 

GO TO 160 
Nl=2 

CONTINUE 

YC=YLE(I)»{-1,)«-H-N1 
Y1=YN(NN.1)-YC 
Y2=YN(NNt2) -YC 
VYK=X1*Y12~Y1*X12 
. YZI=Y1*Z12-ZN(NNj1)*Y12 
ALprim=XYK»XYK + XZJ*XZJ+BB<»YZI*YZI 
RXYZl=SQRT CX1*X1+RB*Y1*Y1 + BB*ZN(NN»1)*ZN(NN* 1) > 

PXYZ2=S0RT ?X2«X2+PB*Y2»Y2+B8*ZN<NN»2)*ZN(NN»2) ) 
UU=(X2*X12+BB«;2*Y12+PB»ZN (NN»2) *Z12)/RXYZ2- (X1»X12+BB»Y1*Y12 
1N{NN»1)»Z12)/RXYZ1 

GN1=(1.-X1/RXYZ1)/(Y1»Y1+ZN(NN»1)*ZN(NN»1) ) 

GN2= { 1 .-X2ZPXYZ2) / (Y2*Y2+ZN (NN» 2) *ZN (NNf 2 V) 

Fl=UU*XYK/ALPRIM«SK 

F2=(GN1*Y1-GN2»Y2) *SK 

A=A+ (F1 + F2) »SN (J? ISN)*CHOPD*GAMMA<NA)/ {8,»FN*FACT0R) 

IF (NN.LT.NM) go to ISO 

TZ=IZ+1 

MM=NM 

NM=NM+II 

CONTINUE 

CONTINUE 

A=A*SRT 

THRT2=A/ {CN*SQRT (FTAN«FTAN+BB) ) 

THRT=(THRT1+THRT2)*C0NV 

GAL(I}=2.*THRT/(SRT«C0NV) 

CT m = ( PI/2 , ) *GQRT ( 1 .-AM»AM«FC0S*FC0S ) *THRT«-THRT/FC0S 

CONTINUE 

RETURN 

END 

SUBROUTINE NORSPD ( I » ALPH » LPANEt » IPHl t LPANl ♦ LP AN2) 

TO COMPUTE THE INDUCED NORMAL VELOCITIES DUE TO WING ALONE 
VORTICES 

COMMON /SCHEMF/ C(2) *X(10»41) »Y(10»41) fSLOPEaS) ,XL(2»15) jXTT 


THR1270 
THR1280 
THR1290 
THR1300 
THR1310 
THR1320 
THR1330 
THR1340 
THR1350 
THR1360 
THR1370 
THR1380 
THR1390 
THR1400 
THR1410 
THR1420 
THR1430 
THR1440 
THR1450 
THR1460 
THR1470 
THR1480 
THR1490 
THR1500 
+BB«ZTHR1510 
THR1520 
THR1530 
THR1540 
THR1550 
THR1560 
THR1570 
THR1580 
THR1590 
THR1600 
THR1610 
THR1620 
THR1630 
THR1640 
THR1650 
THR1660 
THR1670 
THR1680 
THR1690 
THR1700 
THR1710- 
NOR 10 
NOR 20 
NOR 30 
{41>»N0R 40 


V. 


1KLL(41) NOR 

COMMON /GEOM/ HALFSWfXCP {200 ) ♦YCP(200) »ZCP(200) ♦XLE(50) ,YLE(50) fXTNOR 
1E(50) »PSI (20) »CH (95) ,XV(200) »YV{ 100) »SN(8t8) »XN(200»2) »YN(20092) *ZN0R 
2N{E00»2) .WIDTH(8) ,YC0N(25) ,SWEEP(50) f HALFB »S J {21 , 8 ) »EX (95,2) »TX (95NOR 
3»2) tSC(160»5) 9 SI (160>5) fLCO) NOR 

COMMON /AERO/ AM 1 » AM2» B1 9 82* CL (3 0 ) »CT ( 30 ) » CD (3 0) »GAM (2 ♦ 1 00 ) NOR 

COMMON /CONST/ NCStNCWtMl (8) 9NSJ»NCJ(5) ,LASTtMJWl (3,5) »MJH2(3,5) *JNOR 
lPANELfMJJ(5) »NW(3) ♦NNJ,NJP NOR 

NJH=(NSJ-1)/2 • NOR 

IZ=1 NOR 

MM=0 NOR 

NM=NW(1) NOR 

ISN=1 NOR 

NL-NWCl) NOR 

A1=0. NOR 

A2=0. NOR 

00 60 j=i»lpanel nor 

NOR 

FM=NL NOR 

IF { J,GT,LPAN1.AND.J.LE.LPAN2) ISN=2 NOR 

IF ( J.GT,LPAN2,AND.J.LE,LPANEU ISN=3 NOR 

IF ( J.GE.LPANI.AND.J.LT.LPANEL) go to 10 NOR 

GO TO 20 NOR 

NL=^NWC2) NOR 

IF ( J.GE.LPAN2.AND.J.LT.LPANEL) NL=NW(3) NOR 

CONTINUE NOR 

Xi=XN(J»l)“XCPa) NOR 

X2'XN{J92)-XCP(I) nor 

X*-^=XN(J.2)-XN(J*1) NOR 

Y12=YN(Jt2)-YN{J9l) NOR 

Z12=0= NOR 

Z1=-ZCP(I) NOR 

Z2=-ZCP(I) NOR 

XZJ=X1»Z12-Z1«X12 NOR 

DO 50 K=l,2 NOR 

IF (K.EO.l) GO TO 30 NOR 

N=1 NOR 

60 TO 40 NOR 

N=2 ‘ NOR 

CONTINUE NOR 

YC=(-l,)<M-NttyCP(I) NOR 

Yl-YN(Jil)-YC NOR 

Y2=YN(J»2)-YC NOR 

XYK=X1*Y12-Y1*X12 NOR 

YZI=Y1*Z12-Z1*Y12 NOR 

ALBl=XYK»XYK + XZJ<t-XZJ + Bl«YZI*YZI NOR 

R1B1=SQRT(X1*^X1+B1*Y1»Y1+B1*Z1*Z1) NOR 

R2B1=SQRT(X2»X2+B1*Y2»Y2*B1*Z2*Z2) NOR 

UUB1={X2»X12+B1*Y2*Y12+B1*Z2*Z12)/R2B1-{XI*X12+B1»Y1*Y12+B1*Z1«Z12N0R 


11/RlBl 

Gl=a,-Xl/R1B1)/(Y1*Y1*Z1*21) 
G2=(1,-X2/R2B1)/ (Y2«Y2+22*Z2) 
ALR2=XYK*XYK+XZJ»XZJ*B2*YZI*YZI 
R1B2=5QPT(X1*X1+B2*Y1«Y1+B2*Z1*Z1) 

R2B2=SQRT (X2-»X2+B2*Y?*Y2+B2«-Z2-a-Z2) 
UUB^=(X^*Xl2+B2^^Y^*Y12 + B2»Z2»Z12)/R2B2-CXl») 
D/R1B2 

63={1,-X1/R1B2)/(Y1^»Y1+21*Z1) 

G4= a.“X2/R2B2) / (Y2*Y2+Z2*Z2) 

F13=UUBI»XZJ/ALB1 

ri2=UUBl*XYK/ALBl 

G13=Z2*G2“Z1*G1 

G12=-y2«^G2+Y1*G1 

F23=UUR2»XZJ/ALB2 

F22=UUB2»XYK/ALB2 

G23=Z2^»GA-Z1*G3 

G22=-Y2*GA+Y1»G3 

F1=-F13*Y(A, IPHI )«{"!. )**N-fFi2*YC3» IPH I) 
F?=G13*Y (A,IPHI)*(“1.)**N+G12»Y (3»IPHI) 
F3=-F23*Y(4,1PHI)« (-1. )**N*F22frY<3tIPHI) 
F<f=G23»Y(4,IPHI)«(-l.)«-*N + G22*Y(3»IPHI) 

Al = Al+ (F1 + F2)<^CH (IZ)*SN(JJ, ISN)«-GAMa» J)/FN 
50 A2=A2+ (F3+F4) »CH (TZ) <>SN {JJ» ISN) *GAM tZ» J1 /FN 

IF (J.LT.NM) GO TO 60 
17-IZ+l 
Mvi=NM 

mm=nm+nl 

60 CONTINUE 

ALPH=(A1-A2) /8. 

RETURN 

FND 

OVERLAY(USBOWBi5»0) 

PROGRAM LOAD 

c TO evaluate the aerodynamic characteristics 

DIMENSION CA(30>, CPSWLOO), AW(30) 


3»2) »SC{160»5) ,SI {160»5> ,LC (3) 

COMMON /AERO/ AMI ■» AM2» B1 »BH» CL {3 0) » CT ( 30 ) t CD (30 ) »GAM (2» 1 00 ) 

COMMON /CONST/ NCSvNCWtMl (8) »NSJ»NCJ(5) »LAST»MJWl <3,5) ,MJW2 (3 
iPANEL»MJJ(5) *NWt3) »NNJ»NJP 
COMMON /PARAM/ ALPT»ALPC»ALPS»CDF»SDF»TH»TDF 
COMMON /SCHFME/ C{2) »X {10 »4l ) » Y ( 10 .SLOPE (IB) t XL (2» 15) ,XTT{41) »LOD 
1XLL(41) LOD 

COMMON /ADD/ CP (100) »CM(30) »BREAK(8) sSWP(8»15) tGAL(30) » ISYM ♦ VMU» VULOD 
ltTEMP»FCRtCAMLER»CAMLET» CAMTER » CAMTET* XJ»YJ»ZJ9RJ» ALP»CREF»TWISTR LOD 
COMMON /COST/ LT0TAL»LPAN1 ,NJW (5) tLPANEL, IENTN» LPAN2, EXIT* PT1AL» TWLOD 


NOR 

540 

NOR 

550 

NOR 

560 

NOR 

570 

NOR 

580 

NOR 

590 

:12N0R 

600 

NOR 

610 

NOR 

620 

‘NOR 

630 

NOR 

640 

NOR 

650 

NOR 

660 

NOR 

670 

NOR 

68 0 

NOR 

690 

NOR 

700 

NOR 

710 

NOR 

720 

NOR 

730 

NOR 

740 

NOR 

750 

NOR 

760 

NOR 

770 

NOR 

780 

NOR 

790 

NOR 

800 

NOR 

810 

NOR 

820 

NOR 

830 

NOR 

840 

NOR 

850- 

LOD 

10 

LOD 

20 

LOD 

30 

XTLOD 

40 

»ZLOD 

50 

95LOD 

60 

LOD 

70 

LOD 

80 

*JLOD 

90 

LOD 

100 

LOD 

110 


120 

130 

140 

150 

160 


V 


1IST»DF(5) *NFP 
PI=3, 14159265 
AL.PH=ALP»180,/PI 
WRITE (6»330> 

WRITE (6»320) ALPH - 

WRITE {6i330) 

7JET=YC0N{25) 

IUSB=YC0M(24) 

NC=IEMTN 

DFJ=CDF 

CMU=C(1) 

CLT=0. 

C'^T=0, 

CDT=0, 

CLW=0. 

CMWT=0. 

CDW=0. 

CLWW=0. 

CMWWT-0. 

CDWW=0. 

KC^l 

NCOL=Mia) 

KLL=0 
MM = 0 
TU = 1 

IF (NW{2),NE.O) IU=2 
IF (MWOJ.NE.O) IU=3 
NW2=NW(1)+NW(?) 

NW3=NW (2) +NW (3) 

MCW1=NCW+1 

NL=1 

DO 140 I=1»NCS 

IF (NW(2) .EQ.O) GO TO 20 

II-I+NCS 

IF (NW(3).NE.O) 60 TO 10 
CHORD=CH{I) +CH{II) 

GO TO 30 

10 III=II+NCS 

CHOPD=CH'{ 1 ) +CH ( 1 1 ) +CH ( II 1 5 
GO TO 30 

20 CHORD=CH{I) 

30 CONTINUE 

CML=0, 

CL(I)=0, 

CD(I)=0. 

CA(I)=:0. 

CMW=0, 

CPSWL(I)=0. 

CMWW^O. 

X(4tl)=0, 


LOD 170 
LOD 180 
LOD 190 
LOD 200 
LOD 210 
LOD 220 
LOD 230 
LOD 240 
LOD 250 
LOD 260 
LOD 270 
LOD 280 
LOD 290 
LOD 300 
LOD 310 
LOD 320 
LOD 330 
LOD 340 
LOD 350 
LOD 360 
LOD 370 
LOO 380 
LOD 390 
LOD 400 
LOD 410 
LOD 420 
LOD 430 
LOD 440 
LOD 450 
LOD 460 
LOD 470 
LOD 480 
LOO 490 
LOO 500 
LOD 510 
LOD 520 
LOD 530 
LOD 540 
LOD 550 
LOD 560 
LOD 570 
LOO 580 
LOD 590 
LOD 600 
LOD 610 
LOD 620 
LOD 630 
LOD 640 
LOD 650 
LOO 660 




X(6,I)=0. 

X(7,I)=0. 

DO 120 J=1.NCW 
NN=J+MM 

IF (NW(2) ,EQ,0) GO TO 50 
IF (J.LE.NW(l) ) 60 TO 50 
^ IF (J.GT.NW2) GO TO 40 

LL=LPAN1+NW (2) » ( I-l ) +J-NVI ( 1 ) 

IL=II 

JLL=J-NW(I) 

* L=2 

FN=nM(2) 

GO TO 60 

40 LL=LPAN2 + NW(3J«-(I-.1)+j-NW2 

IL=III 
JLL=J-NW2 
L=3 

FN=NW(3) 

GO TO 60 
50 

IL=1 

JLL=J 

L=1 

FKJsNWd) 

60 CONTINUE 

XC=(XV(LL)-XLE(I) )/CHORD 
X(l,J)=ZCR(XC) 

X {2»J)=ZCT{XO 

G« S=CP { LL) *SN { JLL . L ) *CH ( ID / ( 2 , *FN ) 

WBS=GAM ( 1 »LL3 »SN ( JLL»D (ID *ALPC/FN 
wAS=6AM (2,LD »SN ( JLL tD *CH ( ID «ALPC/FN 
IF (DF(NL) .LE. 0,001) 60 TO 70 
IF (PTIAL.LE.0,1) go to 80 
IF (NW(3),EQ.0) GO TO 100 

IF (LL.GE.MJWl (3»ND .AND.LL.LE,MJW2(3»ND ) 60 TO 90 
70 CAM=X(1»J)~(X{1*J)-X(2»J) )*YV(LD/HALFB 

EPHA=XLL(I)-ATAN(CAH) 

CS=COS(EPHA) 

SS=SIN(EPHA) 

GO TO 110 

80 IF (NW (2) .NE.O.AND.LL.LE.LPANll 60 TO 70 

IF (NW(3) .NE,0.AND.LL.LE,LPAN2) GO TO 70 

90 EP=XLUI)*DF(NL) 

CAM=X ( 1 » J ) - { X ( 1 1 J ) “X (2 f J ) ) -B-YV CLD /HALEB 
EP=EP-ATAN(CAM) 

CS=COS(EP) 

SS=5IN(EP) 

GO TO 110 

' 100 IF (LL.GE.MJWl t?»ND .AND»LL,LE,MJW2(2»ND ) GO TO 90 

60 TO 70 
110 CONTINUE 


LOD 670" 
LOD 680 
LOD 690 
LOD 700 
LOD 710 
LOD 720 
LOD 730 
LOD 740 
LOD 750 
LOD 760 
LOO 770 
LOD 780 
LOD 790 
LOD 800 
LOD 810 
LOO 820 
LOD 330 
LOD 840 
LOD 850 
LOD 860 
LOD 870 
LOO 880 
LOD 890 
LOD 900 
LOD 910 
LOD 920 
LOD 930 
LOD 940 
LOO 950 
LOD 960 
LOO 970 
LOD 980 
LOD 990 
LODIOOO 
LODlOlO 
LODI 020 
LOD1030 
LODI040 
LOD1050 
LOD1060 
LOD1070 
LOD1080 
LOD1090 
LODllOO 
LODlllO 
LOD1120 
LODI 130 
L0D1140 
LOD1150 
LOD1160 
LOD1170 


V. 


CL{I)=CL(I)+6BS-a-CS 
CML=CML-GBS*XV (LL) »CS 
C0a)=C0(I)+6BS^^SS 
CA(I)=CA{I)+WBS»CS 
CMW=CMW-WBS-»XV <LL) *CS 
CPSWL { I ) =CPSWL { I ) +WBS*SS 
X(4,I)=X(4*I)+WAS«'CS 
CMWW=CMWW-WAS«XV (LL) *CS 
X (6,I)=X(6»I)+WAS*SS 
1?0 CONTINUE; 

CAMLE=CAMLER- (CAMLER-CAMLET) *YLE { I ) /HALEB 
EPHA=XLL <I ) -ATAN (CAMLE) 

X {l«NCWl)=COS(EPHA} 

X (2-»NCWl>=SIN(EPHA) 

CL (I)=CL(I)»PI/CHOPD+CT{I)*X {2»NCW1) 

CM<f )=CML«PI/(CREF*CHOPD) 

CO { I ) =CD ( I ) <^PI/CHOPD-CT (I) »X { 1 1 NCWl ) 

CA (n=GAM)»PI/CHORD + XTE Cl) *X {2»NCWD 
AW (I)=CMW*PI/(CREF«CH0RD) 

CPSWL ( I ) =CPS WL ( I ) *PI/CHORD-XTE { I ) «X C 1 ♦ NCWl ) 
X C4<.I)=X (4.I)*PI/CH0RD + X C5rl) (2»NCW1) 

X ( 7 » I ) =CMWW*PI / ( CREF*CHORO ) 

X { 6 t I ) =X C 6 ♦ I ) *PI /CHORD-X ( 5 » n "X { 1 » NCWl ) 

IF (I.LT.NCOL) GO TO 130 

KLL=NC0L-1 

KC=XC+1 

NC0L=NC0L+M1 (KC)-l 
130 KL=I-KLL 
FM=M1(KC) 

AA=CHORD«-SJ {KL»KC)«WIDTH CKO /EM 

CLT=CLT^-CL(I)*AA 

CVT=CMT+CMa)*AA 

C0T=C0T+C0 tl)-»AA 

CLW=CLW+CA ( I ) fl-AA 

CMWT=CMWT+ AW { I > «-AA 

COW=CDW+CPSWL ( r ) *AA 

CLWW=CLWW+X (4» I ) «AA 

CMWWT=CMWWT+X (7»r )*AA 

CDWW=CDWW+XC6» I) <»AA 

^fM=(NCW“NK3)-»I 

IF (LL.EQ,MJW2(IUfNU } NL=NL*1 
140 CONTINUE 

CLT“CLT<>PI/C2.«HALESW) 

CMT=CMT»PI/(2.-»HALESW) 

CDT=CDT-»PI/(a.*HALESW) 

CDCL2=CDT/ (CLT*CLT> 

CLW=CLW<^PI/C2.*HALESW) 

C^WT=CMWT»PI/(2»*HALFSW) 

CDW-C0W«PI/(2,<»HALESW) 

CLWW=CLWW»P I / ( 2 e »HALESW ) 
CMWWT=CMWWT«PI/{2*<^HALFSW) 


LOUilOU 

LOD1190 

LOD1200 

L0D1210 

L0D1220 

LOD1230 

LOD1240 

LOD1250 

L0D1260 

LOD1270 

L001280 

LOD1290 

LOD1300 

LOD1310 

LOD1320 

LOD1330 

LODI 340 

LOD1350 

LOD1360 

LOD1370 

LOD1380 

LOD1390 

L001400 

LOD1410 

L0D1420 

LOD1430 

LOD1440 

LOD1450 

L001460 

LOD1470 

LOD1480 

L001490 

LOD1500 

LOD1510 

LODI 520 

LOO1530 

LODI540 

LOD1550 

LOD1560 

L0D1570 

LOD1580 

LOD1590 

LOD1600 

LODI 610 

LOD1620 

LOD1630 

LOD1640 

L0D1650 

L001660 

LOD1670 

LOD1680 


CnwW-CDWW-»PI/(2.*HALFSW) 

IF {CLWW.LE. 0.001) GO TO 150 
C0WL2=CDWW/(Cl_WW<»^CLWW) 

GO TO 160 
150 CDWL2=0. 

160 CONTINUE 

WRITE (6»340) 

K1 = 0 
JJ1 = 0 

DO 240 I=1»NCS 

IF (NW(2).EQ.0) GO TO 180 

II=I+NCS 

IF (NW(3).NE,0) GO TO 170 
CHORD=CH(I) +CH{IT) 

GO TO 190 
170 ITT=II+NCS 

CHORD=CH (I ) 4-CH { 1 1 ) +CH { 1 1 1 ) 

GO TO 190 
180 CHORD=CH(I) 

190 CONTINUE 

DO 230 J=1»NCW 

JJ=JJ1+J 

KK=K1+J 

IF (NW(2) .EQ.O) GO TO 210 
IF (J.LE.NVMin GO TO 210 
IF (J.GT.NW2) GO TO 200 
LL=LPAN1+NW(2)*(I-1) +J-NWtl) 

GO TO 220 

200 LL=LPAN?+NW(3)-h-(I-1)+J-NW2 

GO TO 220 
210 LL=JJ 
220 CONTINUE 

x,I=(XV (LL)-XLE(I) )/CHORD 
ETA=YV(LU /halfb 
CPW=2,*GAM (2»LU*ALPC 
230 WRITE (6.350) KK » XI . ETA, CP (LU »CPW 
JJ1=(NCW“NW3)*I 
K1=K1+NCW 
240 CONTINUE 

WRITE '(6,360) 

DO 250 I=I«-NCS 
YE=YLE(I)/HALFR 

250 WRITE (6,370) Yt , CL ( I ) » CM { I } , CT ( I ) »CD ( I ) , X (4, I ) » X ( 7, I ) »X (6, I ) 
write (6,380) CLT 
WRITE (6,390) COT 
write (6,400) CDCL2 
WRITE (6,410) CMT 
IF (lUSS.NE.l) GO TO 300 
IF (OFJ.LE.O.bOl) GO TO 300 
IF (ZJET.6T.0.01) GO TO 300 


L0D1690 
LOD1700 
LOD1710 
LOD1720 
LOD1730 
LOD1740 
L0D1750 
L0D1760 
LOD1770 
LOD1780 
LOD1790 
LOD1800 
LODI810 
LOD1820 
L0D1830 
LOD1840 
LOD1850 
L0D1860 
LOD1870 
L0D1880 
L0D1890 
LOD1900 
LOD1910 
L001920 
LODI 930 
LOD1940 
LOD1950 
L0D1960 
LOD1970 
LOD1980 
LOD1990 
L0D2000 
L0D2010 
LOD2020 
LOD2030 
LOD2040 
LOD2050 
LOD2060 
LOD2070 
LOD2080 
LOD2090 
LOD2100 
LOD2110 
L0D2120 
LOD2130 
LOD2140 
LOD2150 
LOD2160 
LOD2170 
L0D2180 


260 


270 


280 


29 0 


300 


310 


C 


SOFJ=SIN(DFJ) 

CDFJ=COS(DFJ) 

CLR=CMU*SINtDFJ+ALP) 
CDR=CMU*(VMU-COS(DFJ+ALP> ) 

CF=COS (TDF) 

SF=SIN(TDF) 

IF {NNJ.EQ.D CDR=-CMU*C0S (DFJ + ALP) 
IJ=(NSJ*l)/2-l 
IF (ISYM,EQ.O) lJ=NSJ/2-l 
IF (NW(3) .NE.O) GO TO 260 
IF (NW(2),EQ.O) GO TO 270 
IZ=NCS+(MJWl (2»NJP)~LPAN1-1)/NW{2)+1 
KJ=MJW1 (2»NJP) 

K»M=NW(2) 

GO TO 280 

IZ-NCS*2+tMJWl (3fNJP)-LPAN2-l>/NW{3)+l 
KJ=MJW1 C3fNJP) 

MM=NW (3) 

GO TO 280 
I7=LC(1) 

KJ=MJW1 (1»NJP) 

NN=NW(1) 

CONTIMUE 

CM1=0, 

no 290 I=1»IJ 
V'nF=YN(KJ,2)-YN{KJ,l} 

CM1=CMI+yDIF/WIDTH {NJW (NJP) ) *{ CXLE(IZ) 
IDFJ) 

KJ=KJ+MN 

I7=IZ+1 

CMP=-CM1*CMU/CREF 
IF (NNJ.NE.l) WRITE (6,420) CLR 
IF (MMJ.EQ.U WRITE (6?430) CLR 
IF (NNJ.NE.l) WRITE (6,440) CDR 
IF (NNJ.EQ.1) WRITE (6,450) COP 
IF (NNJ.NE.l) WRITE (6,460) CMR 
IF (NNJ.EO.l) write (6,470) CMR 

continue 

if (IUSB'.EQ.I) go to 310 
WRITE (6,480) CLW 
WRITE (6*490) CDW 
WRITE (6*500) CMWT 
CONTINUE 

WRITE (6,510) CLWW 
WRITE (6,520) CDWW 
WRITE (6,530) CMWWT 
write (6,540) CDWL2 

return 


LOD2190 
LOD220Q 
LOD2210 
LOD2220 
LOD2230 
LOD2240 
LOD2250 
LOD2260 
LOD2270 
LOD2280 * 

LOD2290 
LOD2300 
LOD2310 
LOD2320 
LOD2330 
L002340 
L002350 
LOD2360 
LOD2370 
LOD2380 
LOD2390 
LOD2400 
LOD2410 
LOD2420 
LOD2430 
LOD2440 

+ CH ( IZ ) *CF ) »SDFJ-CH ( IZ ) *SF*CL0DH45 0 

L002460 
LOD2470 
LOO240O 
LOD2490 
LOO 25 00 
L002510 
LOD2520 
LOD2530 
L0D254Q 
LOD2550 
LOD2560 
LODE570 
L0D2580 
LOD2590 
L002600 
LOD2610 
LOD2620 
LOD2630 
LOD2640 
LOD2650 
LOD2660 
LOD2670 




1 


320 

330 

340 

350 

360 


370 

3B0 

390 

400 

410 

420 

430 


440 

450 


46 0 

47 0 


480 
49 0 
500 


510 

520 


530 
54 0 


FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 


(1H0»34HTHE 

(1H0»47HTHE 


(1H0»26X»7HALPHA = , FI 0 , 3 » 3X tTHDEGREES ) LOD260O 

{lHO»20Xt40HXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX) i.0D269Q 

(lHQt3X96HV0RTEXt 14X» 2HXV» 17X » 2HYV» 19X» 2HCP » 19X »3HCPW) LOD27QO 

(6X»I3?4(10X«F10-S) 3 L002710 

{1HO,9X»4HY/SP»11X»2HCL»13X»2HCM*12X»2HCT»13X*3HCDI»12X»3HCLOD2720 
1LW»12X»3HCMW912X»3HCDW3 LOD2730 

FORMAT (a(5XtF10,53) L002740 

(1H0*22HTHE LIFT COEFFICIENT =»F10,5) LOD2750 

(lH0f32HT0TAL INDUCED DRAG COEFFICIENT =,F10.5) LOD2760 

{1H0*28HTHE INDUCED DRAG PARAMETER =»F10,5) LOD2770 

(lHOt35HTOTAL PITCHING MOMENT COEFFICIENT =tF10,5) LOD2780 

(1H0»34HTHE COANDA LIFT COEFFICIENT* CLR s*FlO,5) LOD2790 

(1H0*47HTHE LIFT COEFFICIENT DUE TO JET REACTION* CLJ =.F10LOD2800 

L002810 

COANDA DRAG COEFFICIENT* COR s,F10.5) LODZSEO 

DRAG COEFFICIENT DUE TO JET REACTION* CDJ =»F10LOD2830 

LOD2840 

COANDA moment COEFFICIENT. CMR =.Fltf.5) LOD2850 

PITCHING MOMENT COEFFICIENT DUE TO JET REACTIQNLOD2860 

LOD2870 

LIFT COEFFICIENT WITH JET ENTRAINMENT ALONE LOD2880 

L0D2890 

INDUCED DRAG COEFFICIENT WITH JET ENTRAINMENLOD290 0 

L002910 

PITCHING MOMENT COEFFICIENT WITH JET ENTRA INL0D2920 

LOD2930 

LIFT COEFFICIENT FOR THE WING ALONE=. FI 0 . 5 ) LOD2940 

INDUCED DRAG COEFFICIENT FOR THE WING ALONE=. F1LOD2950 

LOD2960 

(IHO^BIHTHE PITCHING MOMENT COEFFICIENT FOR THE WING ALDNE=LOD2970 

L0D2980 

INDUCED DRAG PARAMETER FOR THE WING ALONE=. FIO . L0D2990 

L003000 
L003010- 


FORMAT 

format 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

1.53 

format 

FORMAT 

1.53 

FORMAT 

FORMAT 


(1H0.36HTHE 
{1H0.58HTHE 
1. CMJ =»F10.5) 
format ( 1H0,2X»49HTHE 
1=.F10,53 

format {1H0»EX»57HTHE 
IT ALONE =,F10.5) 
format (1H092X.60HTHE 
IMENT alone =.F10.5) 
FORMAT (1H0.40HTHE 
format (1H0»48HTHE 


10.5) 

format 

I*F10,53 

format 

153 

END 


(IH0.46HTHE 



